Ol 



O 
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SN BLAD VOOR 6XXXX GEBRUIKERS 



De vereniging tiKft laden in Niderland, Bilgie, Duitiland, 
Frankriik, Spaige, Portugal, Aaerika, 2aabia, D c ne aa rken. 
Hit dNi van da virmigina in hit bivordenm van dt ken- 
nisuitMisseling tusten georaikers van 6XXXX-c««Mtert, ale 

amm-u. apple, oc-i. pemcon. AiH-fis, symT pet, bk 

PTflRI, VIC-26. BflSli lOfi, ^flOTdhcoiiMitert 'lTT-i(»0, 081. 
ACC 8600, ACNN ELECTRON. SYSTEM 63, PC-I06, PALLAS. NINTii 
FORMOSA. ORIC-1, STARLlbfT, 0-777 ESTATE III. 88C6S/68, 
KIN. MS, KENPAC SYSTEN-4, Elekt«ur-caap«ters (JUNIOR, en 
de OCTOPUS) LASER, aaar aok 6800, 6809 en 68000-CMputeni. 
Oe kennisaiUisseling Mordt o.a. gerealiseerd door 6 aaal 

Kr jaar DE 6502 ICNflER te pablictrcn, daor het houden van 
ndclijke clubbijeenkoasten, door het instandhouden van 
cen canette-bibhetheek en door hit verlenen van paper- 
Mre-service. Regionale bijeenko«sten mrden door de leden 
georganisnrd. 

Vinchijningidata 
DE 6502 KBWER 198 5 

derde zaterdag van 
februari, april, juni, 
augustos, oktober, deceiber. 

Inlichtingen over de regio- 
bljunkoMtmi 

Sirard van Roekil 
Van dir Paint raat 11 - C 
313S LK Vlaardingm 

Tel. ! 010 - 351101 



Bijeenkoasten van de club 

derde zaterdaa van 
jamiari, aaart, aei, 
septeeber, noveiber. 

Redaktie-adres en inforaa 
tin evir papertiarc etc. 

yillea L. van Pilt 
Jacob Jordaimttraat IS 

2923 CK Kri^/IJssel. 
Tel.! 01807 - 19881 



Oi vinniging it volledig onafhankelijk, is statutair op- 

Siricht en ingMchrtven bij de Kaur van Koephandil en Fa- 
riakm vaor Holland! NoordarkMrtiir tt Alkaaar, ondir 
nuMir 634305. 



Vsorzltttrt 

Rinus Vleesch-Dubois 

Fl. Night ingalestraat 212 

2037 NG Haarlea 

Til. i 023 - 330993 

Pmningaeester: 
John F. van Sprang 

Mb 71 

2925 EH KriapM/IJnil. 
Til. I 01807 - 20989 



Sikntarifli 

Bert Klein 
DiedenHeg 119 
6706 01 Bageningen 
Tel. I 0^- nUS 

Redaktie DE 6502 KEMER: 
NillMi L. van Pelt 
Jactb Jordamsfltraat IS 
2923 CK Kriaptn/IJtsil. 
Til. I 01807 - 19881 



LidiRi 
Adri Hankil 
Emin Visschedijk 
Bert van Opbroek 
Nico de Vries 
Erevoorzitteri 
Ereleden 

LidMatschap t 



) 



HardMn/saftNarf/DaSfiS 

HardMre/softNare/DOSeS 



(09490 - SllSl 
(0S490 - 71416 ) 

(01729 - 8636 ) 

(010 - 502239) HardNan/softMn/PET 
Slip de Vrits 

Ml. H. de Vries - Van der Uinden 
Anton Huilltr 
HFl. 45^ per 
ning 37S7649 t. 
Stbruikin Club 



kalenderjaar, pestreke- 
n.v. Perniingaeester KIN 
Ntd., Kriapin/IJtMl. 



DE 6902 KENNER ii im uitgavt van de KIM Bebruikers Club 
Nederland. (tot blad iwrdt verstrekt aan leden van de club. 
DE £902 KENNER Mfdt van koplj voorzim door lidtn van de 
club, bij dt opMak van tin publikatit bijgMtun door dt 
ndaittii. Dt inztndingtn van prograiaa's ditnm voorzien te 



Advertent ies : Tarieven op aanvraag bij de redaktie. 



zijn van komntur in dt listings tn zo aogtlijk door ten 
iHliidlna voorafgigaan. Publikatit van am inzmding bete- 
kint nitt dat dt rtdaktit of htt bistuur enige aansprakt- 
lijkheid aanvaardt voor de taepassing ervan. Oe inzendingen 
kumtn geschieden in asseablv-source-listings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schrijven 00k artikelen over de door hen ontHikhel 
de hardnare en/of aanpassingen daarop. Zij schrijven tevens 
artikelen van algeaene aard of reageren op publikaties van 
andere inzenders. 

DE 6502 KEWER IS EEN BLAD VAN EN DOOR K LEDEN 

Nicro-ADE Asseabler/Disasseabler/Editor is een produkt van 
Micro Hare Ltd., geschreven door Peter Jennings en bestead 
voor alle 6S02-cMputers. Oe KIM Bebruikers Club Ned. heeft 
de copyrights vennrven nadat ons lid Sebo Uoldringh de 4 K 
KIN-1 versie uitbreidde tot 8 K KIM-1 versie. Adri Hankel 
paste deze aan voor de JUNKR. Mil lea L. van Pelt stelde 
etn nitUM 8 K source-listing voor de JUNIOR saaen. 
De i^ileaentatie op andere systeaen dan de KIK-1 en JUNIOR 
kan tmvoudig gibturtn door hit aanpassen van de I/O-adres- 
stn, Hilkt in de source-listing geaakkelijke te vinden zijn 

FATE Fonat-liittr/cond. AssMblir/Tape-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaputer aan de hand 
van het universele disk operating systea van de fa. Proton 
Elictroflict tt Naardtn, nu gtMhikt voor werken aet tapes. 
FATE Mordt bcschikbaar gesteld aet toesteaaing van Proton. 

In dt tditiH van DE 6S02 KENNER tMrden rtgelaatig aedede- 
lingen gedaan over de door de club georganiseerde bijeen- 
keasttn. Ook Mordtn bistuurlijke aededelingen gedaan, naast 
infsraaties over hetgeen in de handel te koop is. Leden die 
itts tt koop hibtam of iits zoeken kunnen dit in de edities 
van DE 6502 KENNER bekend aaken. Ook Horden brieven aan de 
redaktie gepubliceerd, evenals specifieke vragen van leden. 
De edities wrden saaengesteld op basis van een groot aan- 
tal prioritiitin, itlkt door em ndaktievergadering Morden 
othantMrd. Dizi vtrgadtring bestaat uit de vaste aedeiier- 
kirt zoalt in dt colofon vtratld. Het aantal inzendingen is 

? rater dan in em enkele editie van ainiaaal 46 pagina's is 
e vemerkm. Hierdoor kan het voorkoaen dat een inzending 
tirtt na migi tijd kan mrdm gepubliceerd. 

DE CLUB HEEFT BEHOEFTE MN MEER LEDEN. UIJ UILLEN NEER AflN 
KUMEN BIEDEN DAN NU AL ICT EEVAL IS. UERF DAARON EEN LID! 

HILT U EEN PRIJSLI^? STUUR EN BEFRANKEETOE ENVELOP fl« 
lET REDAKTIE-ADRES. 

Em onafhankilijki jury kmt jaarlijks tm aantal aanaoe- 

diginqspreaies toe aan auteurs van gepubliceerde artikelen 
in DE 6502 KEMCR. 
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le ^2 ISENNER is een 
UllpWB de KIH gebrui- 



(Wres voor het inzetiden 
van en reakties op artike- 
len voor DE 6502 KENNER: 
Hillea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriipen a/IJssel 
Tel.: 01807 - 19881 

Vaste tedewerkers: 

Uille* L. van Pelt 
Gerard van Roekel 
Fratis Sm^ijzen 

Freelance •edewerkers: 

Frans Bakx 
Rob Banen 
Fridus Jonktan 
Gert Klein 
Roger Lanqeveld 
Anton Ruller 
Gert van Opbroek 
Ruud Uphoff 
Frans Verberkt 

Gehele of gedeeltelijke 
overnane van de inhoud 
van DE 6502 KEFWER zonder 
toesteming van het be- 
stuur is verboden. Toepas- 
sing van gepubliceerde 
prograana's, hardware etc. 
is alleen toegestaan voor 

OE 6502 KENNER verschijnt 
6 X pr jur en imft een 

Copyright (C) 1986 KIM 
Sebruikers Club Nederland. 



De voorpagina is de D0S65- 
controllerkaart, op CfiD/ 
CAM ontHikkeld door Adri 
Hanitel/ErMin Visschedyk. 

In verband aet auteursMet- 

?eving en andere aaatrege- 
en op het gebied van be- 
scherting van softiiare 
kan de redaktie geen aan- 
sprakelijkheid aanvaarden 
voor inzerKiingen. 
Inzendingen dienen afkot- 
stig te zijn van de inzen- 
der, tenzij anders aange- 
geven. 



INHOUOSOP^ DE 6502 KENICR NR. A2 FEMNRI 1986 



1. Uitnodiging Bijeenkoast Beldrop 4, 

2. Van de redaktie 3, 

3. CBN64 TIPS EN TRUUKS 2. 
■ iu'i' ^ard ' vsfiiRbekel 

4. General IntroikcttttA io the Pascal Language S. 
Een algeaene :^^odlctie oat rent ^e orMraaaeertaal Pascal 

... Bert van Opbrert - t ^ v ^ , 

5. Real-Tiee-Cloek voor de JIWIOR f. 
Software voor Clock-IC MC146618 

Zie publikatie in Elektttitr nr. 256 van april 1985 
... N.J. Spithorst 

6. OCTOPUS 65 

Fout in publikatie FOl kaart Elektuur Special 15. 

7. Coapressor aet RUN voor de APPLE 20. 
Een onvolkoaenheid in Ruud Uphoff s publikatie in 

DE 6502 KENNER nr. 25. 
... Frans Verberkt 

8. Deaonstratieprograaaa voor het aaken van grafieken 22. 
' it6ic-proQraa«a volgend op publikatie in editiri^/'lftSiebfr 1985 

... Hans Bosch, Twente University of Technology 

9. VIC 20 

FORTH on the VIC ' • ■ "238 

. . . Fred Behringipr, Hunchen 

10. OCTOPUS 65 
Let it be 

HardNare-artikel aet Basic-prograaaa voor tuzikale Elektuur^oaputer 24. 

11. GRflF-V2.4 26. 
Routines voor de grafische kaart in DE 6502 KENNER nr. 36 

J. litfl. Jamsse» f-?^. 

12. Prograaaa 'Cd^elllfestanden' Handbalceapetitie 3S. 
Basic-Drograaaa voor de Elektuur JUHIQR coapoter 

Deel l: Inleiding/Doc<W^illfer1iiii^fM^«nden 
... Gerard Keet 

13. FORTH Screen Editor 45. 
-Tiill-screen-editor 

... Fridus Jonkaan 

14. OCTOPUS 65 

Uord Processor Printer Version 48. 
lunges and extensions of the Uordprocessor V2.2 
... Leif Rasaussen, Danaark ' 

15. Basicode 

Joystick software voor Basicode 4Bt 
... U. van Dongen "■■ 



ZEND UW PROSRflHMfl'S OF HARDWARE BESCHRIJVINGEN NAAR DE REDAKTIE !!! 
WDERE LEDEN NflflKT U ER BLIJ ICE, ANDERE LEDEN DOEN HET DfllC OOK ! ! ! 



...c.-a 
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NET SIMULERENVftN EEN ESCftPE 

Voor de meeste Cniet commodore) printers wordt met de ESCAPE-TDETS de prin- 
ter verteld dat er iets fayzonders moet sebeuren C zie de hand lei dins van 
diverse printers). Doch de commodore 64 b^ii * nWMMS ESCAPE-TOETS. Toch is op 
twee manieren deze funktie te realiseren. 

Ten eerste in een proaramma met de instrukti# !rl^R*C27). 

Of in de direkt-mode door de SHIFT en t CdubWR;!* Punt) in te drukken. 

B*id« m«ni»r«n vo*r«n ••n SSCAPE ui%. > <> ^ 

- KftSSETTE LAftD PROBLEMEN \ 

Het kan weleens sebeuren dat u. nadat u wat gestoeid heeft met de computer, 
Plotselins seen prosramma meer kriJst inseladen. De kassette-rekorder 
bliJft tot het einde van de band draaien. Soms is dit e>uvel te v»rh»)p*n 
door in de direkt-mode het volsende in te toetsen: 

PDKE0, 47 

Hiermede wordt bit 2 van adres 0 weer op 1 sezet. ftdres 0 bit 2 is normaal 
aitiJd 1. 



BEPAALDE REGEL il^N 
Door d« voivvnde r*«el in te to»tsen is het mosel \4H om een reset te wissen 

POKE 781 »R : SYS 59903 
De letter R is het rese mummer C0 t/m 24). 

DIRECTORY TIPS ,! 

Wilt u het aantai vriie blokken zi»n zQfi<di»r d*.9»hele d i r^stitl^y^occ; T|?«f# .het 
vo I sende ins 

LOAD "0s»»".8 
Of ai re titeis Neike Met K b«»iii:iaii«>ni 

LOAD "0:*K*".8 

Ook is het moseiiJk om biJvoorbeeid alle titels van prosramma's te tonen 
die uit 4 tekens bestaan, waarvan de eerste letter een * 8' «« en de vierde 
letter een ' N' . Toets dan het volsende in: 

LOAD "0:*B??N" 



KASSETTE LOAD ERROR 

Indien u met norma le snelheid een prosramma SAVED wordt dit twee maal na 
elkaar op de band seplaatst. Na een load opdracht wordt de eerste koPie van 
het prosramma se laden en wordt daarna verseleken met de tweede koPie op de 
band. DaarbiJ wordt byte voor byte met elkaar verseleken. A is alles k I OPt 
kriJst u keuris READY terus. Indien er verschi » ten door de computer worden 
vastsesteldj dan kriJst u een LOAD ERROR te zien. U weet dan nos n i et of de 
fouten in de eerste of de tweede KoPie zaten. Geef LIST en kiJk of de I i s- 
tin« »r «oed uitziet. Indien J«t typ d«n (zonder re«ei numitwr) i 

P0KE45. PEEKC831 ) i P0KE4&* PEEKC832> iCLR 

Er is een rede I iJke Kans dat uw prosramma dan in orde is. Save het prosram- 
ma opnieuw en verseet niet daarna een 'VERIFY' te doen. Indien u na LIST 
niets OP het scherm ziet of een heie slechte list ins. dan zat de fout vtaar- 
schiJnliJk in de eerste koPie. Probeer dan opnieuw te laden 
eventueel na de koppen schoon«eiiiaakt te t^bben of een andere rekorder. 
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Van de. A.e.daktie, 



Lid zljn van onze club heeft een bljzondere betekenis. Lid zijn van onze ciub betekent niet alleen: 
op je hobbykaroer spe|9n (Bet |« 6<Mkputier, h«t a«z«» het clubblad, de service van de ciub genle- 
ten en de clubbljeenkomsten bljwonen i»« etlubgenoten te ontmoeten. Het betekent vooral s meeheipen 
het doel van de club gestalte te geven, en dat is: ' kennisul twissei ing ' . Dit begrlp ke»ai*uit«isse- 
llng omvat meer dan men zou verwachten. Oe vraag rijst Immers: hoe doe Je dat het invest efficient, 
hoe heb Je er zeif het meest profljt van. De beantwoording van die vraag hangt nauw samen met de 
aard en de hoeveeiheld van de mlddelen die nodlg zljn om er gestalte aan te geven. Op het moment 
dat Ik met een mederedaktiel id op mijn hobbykamertje zit en hem demonstreer hoe een bepaald soft- 
ware problem l» epselof^i dan i* « spvatice van kennisuitwisseling. Kom Ik op een landelljke bll- 
eenfcomst en vefneeni Ik van eert ander lid hoe hij ziJn floating point routines heeft geschreven, dan 
Is er eveneens sprake van kennisuitwisseling. Er is «oJc sprake van als ik van een famillelld in Ca- 
nada per post een omvangrijke Basic listing voor zljB SlOid-machine ontvangj er is altijd wel lets 
in te vinden dat je aandacht trekt en dat je een nieuw idee aanreikt. 

Of deze vormen van kennisuitwisseling efficient zijn, of Je daarmee de goede dingen doet om de ken- 
nisuitwisseling goed te laten zljn, effektief bezig te ziJn, dat betwijfel ik. We moeten namelijk 
niet vergeten dat we lid van een club zijn geworden om kennls te nemen, lets te willen leren, al- 
thans lets op willen steken van hetgeen anderen aan hardware of aan software hebben ontwlkkeld en 
welke technieken men daarbij heeft gebrulkt. 

Om die kennisuitwisseling te relateren aan dat wat we beogen, kunnen we niet volstaan met vrijblij- 
vende ontmoetingen, al zal nleiiand ontkennen dat ook die een elfen waarde, een elgen gezelligheid 
hebben. We zullen echter andere mlddelen nodlg hebben, waarvan geld er een Is. Geld kan, indien 
in voldoende mate aanwezlg, en indien goed beheerd, een stevige fundering leggen onder het meest 
efficlente object van kennisuitwisseling sinds eeuwen, het geschreven woord. En bij ons is dat het 
clubblad, omdat dat ieder van de clubleden bereikt. Berlchtgeving via de schljf is een middel net 
als berlchtgeving via modem. Maar, gezien de incompa t ibll i tei t met andere systemen, niet alnemeen 
toepasbaar. Het clubblad biedt ledereen eenieders kennls aan, en heeft een veel meer dokumen terend 
ef fekt . 

Een clubblad kost veel geld, meer dan driekwart van de contrlbutie. Ora het goed te laten funktioneren 
Is er veel geld nodlg. Hoe kom Je daaraan? Heel eenvoudig. Door veel leden. Hoe kom Jft daaraan? Heel 
eenyoudlg. Door veel bekendheld te geven aan het bestaan van Je club. Hoe kan de cluS'Wt zelf doen' 
Heel eenvoudig. Door veel reklame te maken? Hoe kun Je veel reklame maken? Door veel qeld te hebben' 
Hoe kom Je dan aan veel geld? Heel eenvoudig. Door veel leden te werven. En zo kunnen we nog uren ' 
met elkaar bezig zijnzonder dat er lets gebeurt. Vandaar dat de aandacht eens gevraagd wordt voor 
de verantwoordclijkheid die we als clublld te dragen hebben. We moeten onze schouders eronder zlt- 
ten om het ledenaantal uit te breiden, domweg omdat er geld nodlg is. Want, halen we met z'n alien 
nleuwe leden binnen, dan halen we ook meer kennls blnnen. En vele nleuwe leden hebben allanq ken- 
nls gemaakt met de manler waarop uw redaktie tracht die kennls beschikbaar te krijgen voor u' 
We zljn er dan echter nog lang niet. U als clublld kan een concrete bijdrage leveren aan de vttlj- 
ling van het clubblad. Want een clubblad zonder publikaties, dat heeft naar alle waarschi Jniim«IJ8 
niet het effekt dat de leden 'hoera' zullen roepen. j j » 

Ben Je als redaktieman voldaan achterover in Je stoel gaan leunen als je de komende editle weer vol- 
doende copy hebt, dan zul Je er niet in slagen het clubblad de betekenis mee te geven die het be- 
hoort te hebben: een waardevol en lezenswaardlg geheel van boeiende informatie, die probeert een 
weergave te zijn van hetgeen In de club leeft. Het Is echter niet, zoals al zoveel verkondigd, het 
julste uitgangspunt om van de verondersteiiing uit te gaan dat de redaktie het blad maar vol moet 
schrijven Het is dan immers niet een representatie van hetgeen In de club leeft, maar de uiterlll- 
ke verschijnlngsvorm van hetgeen de redaktie of een of meer leden daaruit beweegt. Prima natuurlljk. 
als het niet anders zou kunnen. Dat het anders kan, dat is de afgelopen Jaren bewezerf, gezien 'de 
enthousiaste bljdragen welke van de leden werden ontvangen. Men is ervan overtuigd qeraakt dat het 
Inzenden van al datgene wat men aan hardware of software ontwikkelde een bijdrage leveren kan aan 
het verhogen van de fcwaliteit van het clubblad, door de nogelljkheid die dan ontstaat om varlatie 
aan te brengen. Het is die variatle die ultdagend kan ii««l(en op onze prikkelende behoefte van elkaar 
^f.i^T'^ °l te doen, de aandacht te trefclcen tot in verre landen. Ik ken menlg club- 

blad. Goede en minder goede. Toch geloof ik dat er te weinlg mensen zijn die er bljdragen aan leve- 
ren. Het geyolg is vaak dat het op den duur niet meer boeit. Dat Is anders als leden van de club 
I^? "h r^y^" dubblad zUn, leder op zljn eigen wljze, maar ieder bewust bezjo 

met het gegeven dat hlj mede- ver an twoo r deli j kh e 1 d draagt voor het voortbestaan van het clubblad *°''- 
D^:;rT/ ""'"h"" "^"^ dubblad op te bestaan. Het kan nle? genoeg gezegd 

Door het inzenden van al datgene wat Je ontwikkelde ontstaat vaak ook een hechte persoonlilke re 
latle met de redaktie. Het he«ft het voordeel dat men nog eens op een idee komi? aan een dee wordt 
geholpen, en soms wordt Je gevraagd lets te d«eft «r te ontwlkkelen. 

Er is ook nog lets anders te wensen. Oaren gele'rfeft' was er niet veel voor nodig om uit de hoek van 
kl^ntl^ V\ ^^"l'^ krijgen voor het clubblad. Anite^e informatics of do- 

kumen ta ti ema ter 1 aal voor een goed funktioneren van de redaktie, waar men toe* zelf belanq bij heeft 

l^l^ ""^l" ''"'^ spontaan toegezonden. Moest men handware maken, tot een 

compleet gedokumenteerd disk operating system toe, geen nood! Software nodig? Twaalf kllobvte' 
Geen nood! Het heeft zijn tijd nodig, maar het komt. Kiiooyte. 
!«^Lii*^ ^"^1 niet mee om uit de hoek van de andere computer-bezl tters publ iceerbaar materiaal te 
verkrljgen. Een enkele keer lukte het, maar het bleef te weinlg. Daarom blijf ik hameren op het 
thena: lever allemaal wat in Het clubblad zal erdoor y.eri#ve«dlgen . Doe als die APPL^bezl tteJs 
die enlge tiJd geleden zijn IngegaaTi op mljn oproep om mee te doen. om zelf ve-antwoordelijkheid 
te dragen voor het clubblad, door steeds in te zenden. Inmiddels zljn de resultaten van die kon 
takten in het clubblad zlchtbaar geworden. In de copy-buffer zit echter n^fsteedsnle? genoeg 
materiaal dat mij de zekerheld geeft dat we ook anderen hun kennls kunnen doorgeven? ^ ^ 
Kljk nog maar eens goed. U hebt vast wel het een en ander llqqen. Vraaa le niet af nf h^t »»i ^„„h 
genoeg is. Het Is altijd goed genoeg om er een kontakt met d"re;ktU^ei op te bouwin ^et Ian 

S:te?'?lCbSliS,^3: n^er^Jiig^a^?""""""^-'*^*'" ^'^'^^^^ aan^llfLg 
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Datum 
Lokatie 



Reisroute^ 
- per'auio 



psr trein 



zaterdag 15 MflART 1986 
Geaeenschapshuis 'De Zes Gehuchten' 



- vanaf snelweg E3 Eindhoven ; Venlo 
BTsTag Eildrop Bij Golden Tulip fiotel. 
Bij eerste verkeerslicht richting cen- 
truft linksaf slaan (E«opad). Bij krui- 
sing na ca 800 «. linksaf slaan (Hoog 
Geldrop). Deze weg blijven volgen tot 
gebouw naast kerk aan rechterzijde. 

fifslag SeTdrop bij DflF showrooi (Eind- 
hovense Heg). Weg volgen tot tHeede 
verkeerslicht voor spoorwegviadukt. 
Rechtsaf slaan en neest rechtse weg 
inslaan (Papenvoort). Deze weg blijven 
volgen tot gebouH voor kerk aan linker- 



- vanuit Nuene n - Hel«ond 
Tn'BeBlTop ricfiting Eindhoven. Bij 
le verkeerslicht voorbij spoorviadukt 
linksaf (voorsorteren). Verder als bij 
rottte vi^it rondNeg Eif^iwveR. 

Stoptrein Eindhoven Weert 
Tn~biT3rop~3iril(l na'ullgang station 
links voetgangerstunnel door (Tournooi- 
veld). Heg oversteken en rechtsaf qaan. 
Eerste laan links (Hertoqenlaan). Na 
bocht eerste straat rechts (Sildestr. ) 
Eerste straat links (Diepenvaart). 6e- 
bouN aan einde links (naast kerk van 
Zesgehucbten). 

Lunchpakket zelf «eene«en. 
Consuiipties tegen betaling. 



ENTSEEPRIJS; Hi, 4d-3»-..«. 



■4 0 



Prog ram«a : 



09,30 
10.15 
10.30 



12.00 
13.00 
13.15 



17.00 



Zaal open iet koffie 
Opening door de voorzitter 
Lezing over D0S65 

... Full screen editor • ' 

... I/O redirect •echanisae ■ - 

door Erwin Vt|ieteSM* «b Mti Hai*6l 

Lunchpauze 

MflRKT ' . . . 

INFORNEa GEDEELTE 

In dit deel kuhnen alle leden hun ztlf 
ontwikkelde hardware en software 
deitonstreren. 

Het illegaal gebruik en het kopieeren 
van software waarop enige vort van 
rechten rusten ook die van de club, 
is ten strengste verboden! 
BRENG UW EIGEN SYSTEEM MEE ! ! ! . 
Het aanbieden van overbodige spuUen 
is op eigen tafel(s) te regelen. 

auifm 



De redaktie roept eenieder op via de radio 
ontvangen Batsicede pragrataa's in te.«stiiren. 

Geef U bij de redaktie op voor het taken van 
il lust rat les, vertalingen naar het engels, 
of illustratieve tekeningen. 
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6B€RAL IKTRODUCTIflN TO THE mmL 



iBterprettrs, like nost Basic versions, exKute the high 



8y; Bert van Opbrqefc, aip,,, . s;i£ «»v to w*^^*>. 
2481 AN MoubM^g^sl 'M)<i< ■■:> v^:- * irvtr w 



Tel 91729-863(5 
1. Introduction. 



In the near future we are going to publish sone 
prograns in the PASCAL lanquage and therefore I 
was asked to write a general introduction to this 

PASCAL was developed by Niklaus Wirth at the EKT in 
Zuerich, Switzerland in 1971, mainly for educational 
purposes. It is a so called ALGOL like lanquage what 
neans that the gramatics of the lanquage resenbles 
^KX. strongly. ' . ■« .",.1 

Although I have never worked with RASCAL on a 6582 
microprocessor I have about 5 years experience in 
PASCAL on Cyber, PDP-ll and CP/H systems and I want 
to write down sane of my experiences in this article 
to help other neabers of the KIN-aUB to unto^tud 
some of the features of PASCAL. 

PASCAL is used for very different problens in the 
industry, research laboratories and telecomunicatioti. 
Sone of the problens for which PASCAL is used are: 

- The control of neasurenent equipment at research 
lalMTttwies. 

- Diti reductioft and analysis at research laboratories. 
In the past FORTWN was mostly used for this purpose 
but since students have to learn PASCAL during their 
education, IBASCAL is more and more used for these 

■ilk factory. ■p' 

- A complete system for system development, provM 
specification, oeneration ud docoMttation is 
programmed in PASCAL. 

" 'WSLf*^** Telephone and Telegraph Conpagny (PH) 
ilSei. lor lAil ol tt«f Ml |r«jects. 

Yoa IM, that although PASCAL is developed for educational 
rMiOBf, It has grown out to a professional lanquage that 
is UMd in many fields of research and industry. 

Hany of the inplaNntations of PASCM. conform to the ISO 
itandard what n»ans that these versions support all of 
the standard |^^i^|||i|;0f j^. „ 

2. Coviiji^iiil 

Pascal uses a ca^)i]er in stead of an interpreter like 
nost Basic and Coial v«'sions. This means that when you 
wrote a prMran and want to run it, you have to translate 
(compile) this program with a so called conpiler. This 
caq)i]er translates the Pascal instructions to a program 
ifl a IiMer lanquaoe, for instance in machine instructions 
or r*«pde instructions. Nhen you run your proo'M this 
IfflNT laainife prograi it necuted. 



level instruction 

that executes the high 



nosi Dssic versions, exKute tfte nigl 

:Sifr^|Bli"?riAr»s»olii?§, 

igh llMrffiitruction. That means thj 



.ne 
that 



level" instructions^ 
el instruction t 
tei 

at runtime the complete source of the program is in main 

, all you 
the program. 



memory and i4ien you want to change the progrm 
have to do IS type in the changes and rerun thi 

Because in this world, you get nothing for nothing, the 
execution speed of an interpreted lanquage is much lower 

be optimized. 

It is not true that because Basic is interpreted, it has 
fewer posibilities than Pascal. BBC-Basic has nuch of the 
Pascal posibilities and the lasquase Lisp, which is also 
interpreted has, m my opinion, more posibilities 
than Pascal. 

So the main reason to use a compiler for languages like 
Pascal, Fortran and so on is the execution speed and 
the compact code that is generated by the conpiler. 



3) ComparisoQ of the 



ibilities of Pascal and Basic. 



Nhen we compare Pascal with Basic, there are nany 
differences; most of then are in favour of Pascal. 
I shall give a brief overview of the most significant 
ones. 

A) <i/ariables. 

Basic suniorts three types of basic, so called 
scalar, variable types: 

lNI@»r, 'JlE»l iiMiini]H6. ' 

In Pascal thwe are the scalar types: 

BOOLEAN, INTE6ER, REAL and CmRacter 

- A boolean is a logical variable with the values 
TRUE and FALSE and is used in logical expressions. 

- Character variables have values defined by the ASCII 
character set. Seme Pascal versions have extra 
character values, for instance graphical characters. 

You can also define your own scalar type by 
■entioning all tbe valves of #| tjpf^ instance: 

TYPE COLOUR » (RED, BLUE, YaLW, MHITE, BWCK) ,• 

Basic has only one structured type: the one or more 
dimensional array of scalar types. 

In Pascal we have ARRAYs, SETs and RECORDS. 

The ARRAY in Pascal can have all scalar types, except 
real, as index type. The range of these indexes can 
be the full range of the index type. In more 
dimensional arrays one or more different infkx types 
with different ranges can be jsed. 

An array can be PACKED or unpacked. A PACKED ARIWY 
means that for every iten the least possible neno^ 
space is used. The only practical consequence is 
that a PACKED ARRAY of CHAR can be read from ore wrote to 
a textfile with only one READ or WRITE statement. For all 
other types of ARRAYs read and write mst be ^e 
elenent by elemnt. 
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A two dinensional array is defined as an array oi an 
array. Sos '^Tfyr 

p a lAoriltiiid notition for 

WMfTftlX « i«MY[l..tt] OF ARMY[1..1II] OF INTEOER. 



sake AfilMYs of CHARacter, ARRAYS o 



e; so ue can 
s, ARMYs of 



An ARRAY of CHARacter is often used as a string. 
Unfortunately ISO Pascal offers no routines for string 
manipulation like m$, HID$, LER$ and RI6KT$ in 
Basic. I find this the only advantage of Basic above 
Pascal. We even can't copy a string with length L in 
a string with length H <) L in one single assigmient. 
Fortunately, nany Pascal versions offer procedures 
for string nanipulation. 

A SET is a set (verzaneling in dutch) of sone scalar 
type (exept real) . For instance a SET of CHAR or a 
SET of INTEGER. A set can only have a United nmber . 
of fienbers (often 255). A SET is oitm.mi *^= - 
logical expressions for instance: 

IF c IN ['A'..'Z','»'..'9'] THEN 



For SETs Pascal has the operators: ♦ (union, ver- 
eniging in dutch), - (set difference, this neans all 
the nenbers of A which are not nenbers of B) , X 
(intarsection, doorsnede in (hitch) and IN (lendier of). 

The most powerful 1 structured type in Pascal is tht 
RECORD type. In a RECORD we can bundle different 
information in one variab1t.'lb«|p»ti:jNi>^lD,fl||ii| - 
this is with an exanple: 



TYPE PERSON = 
RECORD OF 

FIRST JW1E 

RMILYJMHE 

AGE 

SEX 
END; 



PACKED ARRAY! 1.. 18] OF CHAR; 
PACKED ARI»Y[1..38] OF CIKW; 
INTE6ER i 
(HALE.FBIALD ; 



When we have an variable <MiLP of type PERSON we 
CM Kcess the fields in this record by: 



UAR-P.FIRSTJW1E 
\iAR_P.SEX 



:= 'PIET 
:= m.£ 



I 



Me can also use the WITH statement: 

WITH WR_P DO 
BEGIN 

F<¥1ILYJ«ME != 'PIETERSEN 
FIRSTJWME := 'JOOP ' ! 
END; 

A RECORD can have a so called variant part what means 
that the contents of the rKord can vary as function 
of one of the variables: 

TYPE PERSON = 
RECORD OF 

FIRSTJiVIE : PACKED ARRAY[1..1I] OF CHM { 
FANILYJ«^E: PACKED ARRAY[1..3I} OF CNMt ; 
CASE SEX : (MALE.FEmLE) OF 

NUi: (BEARD : BOOLEAN; 

mRRIED : BOOLEAN); 

FEWLCi (CHIIMBC INTESER) ; 



The last special type we have in Pascal is the 
pointer iyfm. A pointer variable contains the 
address of the variable (or begin address in the case 
of strtciored types). This means that with pointer 
types M have a form of indirection. When we put in 
a RECND one or more pointers to the same type of 
iSCORD we can make linked lists, trees and networks. 
Mben tkere is enough interest in our club, I can i 
write soMthiog about pointer types lists and trees 
in a next issue of the iSI2H(enner. 

You see that Pascal offers many more types of variables 
than Bisic. I think that this is the most signifi<:apt 
dH^NMRt betMMn Basic and Pascal . 

B> Ex|H-essions. " 

l^e of the most significant differences between Basic, 
Comal and Pascal is the fact that standard Pascal can 
not raise to a power like the " operator in Basic. 
Comal. Hhen we need samethiRo like that, we have to^. 
write our own function for that or use the EXP fuctief. 

For square we can use the function S8R and for s^lliv- 
root we can use SORT. ^i4«.^J "it 

As discribed above, Pascal has no stfiR) W^lmm^ 
and supports SET operations. ™ 

C) Assignment. 

In Pascal assignment is done by: := , just like in - 
Comal. In Pascal, variables of the sane type can be 
assigned to each other by one statement. So we can 
assing RECORDS and ARRAYs by one statement. Because 
a two dimensional array is defined as ARRAY of ARRAY, 
we can assign a complete coluMi in AMlrix by one 
single instruction: u ivd 

TYPE mTRIX = ARIWYtl..lfl,1..38] OF INTEGER { 

ttmmr..mWmmiER\ 



BE6IN 



I a ■ a • > • 



NES] :- R i 



END. 



D> StateBents,l\f'*?"-r 



Uj<>>: itn: ,MMe wi 



Host Basic versions have no ccxapound statements. The 
only constrtction that is sui^ted in Basic that 
Yt#sil^it;,tiiipti9nA ftit|^ is : 

IF test im si : s2 i li . .V'^ 14 : sS fsi 

In CflMi we have constroctiwi litt ■[ 

. ^ ii v.: vow ,:i im oi -• 'lei, i- 



Pascal has a Micfc Mre ^neral solution for this 
prtdilem: 




B/ery blKk of stitMHil^. iitgiiinjHi idtfc KSIN ud 
mdino with QW is tmlil u me statMNt. Hi ca 




Pascal supports five types of control strectures: 

- The IF-THEN-ELSE structwe in the fom >- 
IF boolean express! (H) -.-•^ ,1 
THEN > .^^.v ; 

MSMOund) statenent >v 

(coipound) statOMnt 
in Mhich the ELSE pvt is optional . - " 

RcMrk: Before an ELSE you nay not use a saicolon 
(;). This is one of the iiost frequently 
ccnpiling errors in ny prolans. The reason 
for this is th» fact that jwj^pflwwwrt 

». ; after the IF-part neans 
1 10 ELSE-part in tie statnent. 

The CASE statcKnt is used in the constroctiont 

CASE case selector OF 

vl : (conpound) statenent ; 

v2 : (conpound) statenent ; 

v3 : (conpound) statenent ; 



END 

The case selector nust be a scalar ^ itm 
mi). Hhtn you have one statncel Wim^ 



vl 
v2,v3 
v4 



(co^wottd) statenent 
(conpound) statenent 
(conpound) statenent 



Kiiiid vS in the above exanple you se a so 
eiited Bipty statenent. This is done for the 
reason thai Pascal denands that for every 
value that the case selector can have during 
run-tine there is a case label. Fortunately 
have nost Pascal versions the default label 
OTHEmiSE (without colon) i^at neans for every 
other value of the case selector: 

CASE case selector 
vl : si i 
v2 : s2 




- The WILE DO statenent. This statenent has the fom: 

HHILE bMftm ex|ir«5ion m tconpound) statenent. ' 

The (cfl^raund) statenent is executed until the boolean 
expression is false. This neans that if the expression 
is already false in the first pass, the expression is 
not executed. 

- The REPEAT UKTIL statenent in the fom: 

REPEAT 
statenent 1 ; 
statenent 2 : 



statenent n 
IMTIL boolean expression 

The stanents between REPEAT and INTIL are executed 
until the boolean expression is true. These 
statMwnts executed at least once. 

- The FOR TQ/DBWrrW statenent. This is thi f«8exW=^^ 
repetitive statenent. It has two foms: 

FOR index variable = start value TO end value DO 

(conpound) statenent 
FOR index variable = start value DMfTO end value DO 

The first form has a positive increnent, the second 
. has a negative increnent. 

The index variable can be every scalar type (except 
REAL) and the increnent is always one. This neans 
that the construction with TO takes the successor of 
the index variable and the construction with DOMMTO 
takes the predecessor of the index variable. Pascal 
does not know FOR loops with sonething like the STEP 
statenent in BASIC. 

F) POCEDUREs and FUNCTIONS. 

In Basic we have the so called subroutines. That are 
parts of a prooran which are called with GOSUB and 
which end wnith RETURN. There is no pararaeter passing 
to subroutines. In COMAL there is a way to pass 
paraneters to procedures. This is always a call by 
reference. In Pascal we have all we want to have in 
the procedures; paraneter passing by value an by 
reference, local variables and procedure or function 
paraneters. Recursion is one of the standard 
possibilities of Pascal what neans that a procedure 
(or functim) can call it self. In the next section 
I shall discribe these fNturfls of Pascal nore in 
detail. : 

In Basic one can define a function by: 

DEF FNnaan(paraneters) = expression 

In Pascal we define a function Just like a procedure. 

All we have to do is: 

- Change PROCEDURE in FUNCTION 

- Declare the result type}, this oust i» a sralir W • 

K inter type 
an assiyuMnt to thi fkiiiiM. 

6) StaiidaNtnneEfin^ and FtMGTIiMs. 

Host of the standard procedures and functions in Basic 
have their counterpart in Pascal (except string functions) . 
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KEIMMER 



Pascal has ^orutted output to texfiles althoug I find 
it dm^ to iM. 

In Pascal we do not have a PEEK or PCN<E althoug ue oftM 
can assign a variable nane to an absolute address. 

In Pascal we have a function NEM which is used with a 
pointer variable as parameter and gives dynanic a new 
(empty) record to which this parameters points. 

For two standard functions I shall give a brief explanation: 

- SUCC(x) : gives the successor of the scalar x within 

the ordered set of values of x. This means 
SUCC(18) = 11 2 SUCC<'P') = 'Q' and from 
the expa^>le in SKtim 3A SUCC(YELL(M) » 
WHITE. 

- PRED<x) : gives the predecessor of x within the 

ordered set of x. So PRED(18) = 9 | 
PRED('P') = '0' and PREDCYEUOW) = BLUE. 

4. PROCEDURES and RhCTIQNs in Pascal. 



As remarked in section 3, Pascal offers iwch more 

rossibilities in procedure and function calls than a 
miuage like Basic or Conal. 

The most significant differMtcttirt IflCil ^iMffS, 
paraieters and recursion. 

M Local variables. Pascal makes a difference between local 
and global variables. Every variable in Pascal has to be 
declared. If it is declared in the main program, that 
means after the PROGRAM statement and before the first 
BEGIN of the main program, it is a so called global 
variable. This means that the variable can be used in 
the main program and every procedure or function that 
does not redeclare the variable. If a variable is declared 
in a procedure or function, then it is a so called local 
variable. This means that the variable can only be used 
within that procedure or function. If there is a global 
variable witn the same nane as the local variable tben 
only the local variable can be used. 

Note: Mostly we talk about global and local variables; 
in Pascal it is better to talk about global and 
local names because we can have also local types, 
procedures, labels and constants which differ from 
the global ones. 

f} Parameters. 

In general , we can have three types of parameter passing: 

- call by value 

- call by reference 

- call by name 

Pascal offers the first two, Basic only the call by value 
(in function calls) and COMAL!(.KGN only the second in 

Socedure calls. I know only one lanquage that supports 
• till iijr nmt AL60L. 

In call by value, the value of the parameter is passed to 
the procedure or function. In Pascal it is programed as 
Mlnwsf 



BE6IN ivfpvt^itmf^} 



Bi> ; { el preccdurt Mi > 

In call of PROC we can svbstitste the niM of an HlifiQt 
or an integer value: 

PROCd) ; PR0C<2) ; 

If we use the word VAR before the definition of the 
procedure in its defenition, we use a call by reference. 
This means that the reference (address) of the variable 
is passed to the procedure. This means also that we always 
have to pass a variable (for instance I in the previous 
•xiiple) . 

In call by name, the name of the variable is passed to 
the procedure. This is not the same as call by reference 
althoug it mostly gives the s»e result. If the name 
of the parameter is given to an other variable in the 
procedure, the reference of the parameter is changed, A 
fJ?J?«8l.i^|!!eJ| CM?!^*"" is the so callea 



PROCEDURE SllH(N,J,A,&f mtCMj SmSQl Ml REAL A, S] 
BEGIN S := 8 s 

FOR J :» i STEP 1 INTIL N DO S & * 
END; 

The call of SUH is : SII1(M,H,G[H],SS) ; 

In this procedure the NAME A is first assigned to the 
variable 6[11, then to 6l2i and so on until 6IN}. 

In Pascal a procedure can have zero, one or more 
parameters of different types. Each of them can be a 
valoe » a reference pariMter. 

In Pascal, we can also pass complete procedures or 
{mentions as parameter. I shall only give an example of 

{ gives the arguMtt ftl f bttipK^I ji4| |ir «Mcii . 



111** ?H«.irvfirj«T 



Me can call this function as follows: 
WRlTELN('PI/2 =',ZER0(C0S,8,2)) ; 
Note: The algorithm of 2ER0 can be found in: 
Jensen ,Wirth : Pascal User Manual and Report. 
C) Recursion 



I . 



In Pascal a procedure or function can call another 
procedure or function or itself. The only condition 
is that the name of the called proceAire or function 
is known at the place where it is called. In general 
this means that the definition of the called procedure 
or function has to be Hde dXKW the calll^ flitiMnt 
in the program. 
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CLOCK 



20 :29s 58 PAGE 01 



0010: 
0020: 

0040: 
0050: 

mMf 

0070: 
0080: 

msm* 

04 1«: 

mmt 

0130: 
01 A0: 
0150: 
0160: 
0170: 
01^: 
0190: 
0200: 
0210: 
0220: 
0230: 
02i^>0if 
0250: 
0260: 
0270: 
0280 ! 
0290: 
0300: 
0310: 
0320: 
0330: 
0340: 
0350: 
0360: 
0370: 
0380: 
0390: 
0400: 
0410: 
01^20: 
0430: 
0440: 
0430: 
0460 : 
0470: 
0480: 
0490: 
0500: 
0510: 



1400' 



E4 00 

E5 00 
E6 00 

m m 



E8 11 
F3 11 
8F 12 
AE 12 
34 13 



70 18 

71 18 



B400 A5 E5 
B402 A6 E4 
B404 8E 70 18 
B407 8D 71 18 
B40A 60 



Rf^L^tlPte-CiLOCK VOOR DE JUNIOR 

'Onderstaande routines zijn geschreven voor de Real- 
Time-clock, zoals beschreven in Elektuur nr. 258 
(april 1985). Aangezien de schakeling in standby- 
bedrijf met de laagste kr istalf rekwent ie ook het 
laagste stroomverbruik heeft, heb ik een 32.768 KHz 
kristal toegepast. Als men dit kristal (zit ook in 
horloges) toepast moet C3 vergroot worden tot 470 pF 
a 1 nF, anders oscilleert het zaakje niet. 

in de schakeling toegepaste clock-IC <MC146813) 
ik ingesteld op BCD uitlezen, omdat MICRO-ADE 
ook vrij Eimpel gewijzigd kan worden om te ui^r— 
met de Real-Time-Clock . BiJ een koude start 
M.A. hoeft dan niet meer de datum ingetikt te„ 
ujorden en de PASS 2 en TABLE-1 ist ings ujord©W^,,*| 
voorzien van de datum en de tijd in de kop van 
listing. 

ri. J. Spithost 
Weth. Huismanlaan 51 
9902 LP Appingedaro 



Het 
heb 
dan 
ken 
van 



CLOCK ORG 



*E400 



PAGE ZERO ADRESSEN 
ADRES « *00E4 
DATA * *O0E5 



Sa' 



$00E6 
*00E8 



MONITOR SUBROUTINES 



Buffer voor klok-adres 
Buffer vo©!*' klok-data 
Pointer voor PRINT-rout ine 
Buffer voor GETVAL-rout inf 



CRLF * 
PRSP * 
PRBYT « 
RECCHA # 
PRCHA # 

MC146818 
CLOCKA * 
CLOCKD * 



*11E8 
*11F3 
*128F 
*12AE 
*1334 

ADRESSEN 
$1870 
*1871 



Nieuwe regel 
Druk spatie af 
Print byte als 2 
Haal toetsiuaarde 
karakter af 



adres 
data 



Klok 
Klok 



WRITE schrijft op de Juiste wijze data 
naar de real-timer-clock. 



WRITE 



LDAZ 

LDXZ 

STX 

STA 

RTS 



DATA Data voor klok in atCjey- 

ADRES Klok adres in X-reg. 

CLOCKA klok adres naar klok 

CLOCKD Data naar klok 
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READ leest op de Juiste wijze data uit 


©3 JOS 












0540 ! 
















0550: 


B40B 


A6 


E4 




READ 


LDXZ 








&£ 


f0 


it' 








0570: 


B410 


AD 


71 


18 




LDA 


CLOCKD Data in accu 


0580: 


B413 


85 


E5 






STAZ 


DATA Data in buffer 


0590: 


B415 


60 








RTS 




0600: 
















/Ik Z 4 flk m 

0610: 










POLL wacht tot er kan uiorden gelezen uit 


0620: 










1 van 


de 10 


ki id en datum reaisters 


0630: 
















0640: 


B416 




m A 

0A 




POLL 


LDXIH 


$0A Rea. $0A bevat UlP-bit 


0650: 


B418 


8E 


70 


18 


NOTSET 


STX 


CLOCKA 


0660 ! 


TV A 4 n 

E4 1 E 


A T\ 

AD 


*T 4 

71 


l0 




LDA 


CLOCKD Haal inhoud van recj. t0A 


0670: 


Tk A 4 I?" 

B41E 


10 


F8 






BPL 


NOTSET Uacht tot bit 7 aeset wordt 




B420 


8E 


70 


18 


SET 


STX 


CLOCKA 


0690: 


B4/3 


A T\ 

AD 


~T 4 

7 1 


18 




LDA 


CLOCKD Haal inhoud van rep. $0A 


0700: 


TV A -"j y 


30 


F8 






BMI 


SET Uacht tot bit 7 aereset uior 


07103 


B428 


60 






r. i 


RTS 




















_ _ _ 

0/J0: 










PRINT 


drukt 


Ben strinQ af 


















0 7Z>\Q ' 


TV A -^jC) 


68 






PRINT 


PLA 


Haal terugkeer adres van 


0/60: 


TV A A 


85 


E6 






STA 

w 1 n 


MEPNT ^'tetD^l @n bera het od 


07f®f 


B42C 


68 








PLA 




0780 ! 


TV A ■"'«r\ 


85 


E.7 






STA 


MFPNT +01 


0790: 


B42F 


E6 


E6 




PRTA 


INC 


MEPNT 




1431 


PB 


02 






mm 


PRTB 


0810 : 


E^43 J! 


h6 


t.7 






INC 


MEPNT +01 
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OCTOPUS 65 

In de 1e uitgave van Elektuur Computing extra 
over de zelf bouwcomputer -OCTOPUS 65- 
is in de bouwbeschri j v ing van de FCU-kaart 
iflomSf eowtrol Unit) een fout gemaakt 
i*K*l'lt6«£r d^ft disk-drive niet aan de praat te 

BIJ m wijrJglftg van tfe adressering van de 
kaart van C0xx naar Eixx j,* op pagina ^ 
met vette letters vermis Mt 1« A^^I- ■ 
worden doorverbond«n. 
In plaats hiervaA moet men lezen: 

-Niet 
' van IG7 
wopd»n sftfbonden. 

In het Aehema op pagina 33 is de wijziging 
wel Qoed getekend. 
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3930: 


B5FE 


41 






.-i , 


'A 






3940: 


B5FC 


54 






SB 


'T 




■ •■ .■ 


3950: 


B5FD 


45 








•E 






3960: 


B5FE 


52 








'R 






3970! 


B5FF 


44 






, • i:fl, 1 






3980: 


B600 


41 








'A 






3990: 


B601 


47 






'G 








B602 


03 






— 


$03 






4010: 


B603 


20 


F3 


1 1 


DATE JSR 


PRSP 






4020 : 


B606 


A2 


07 




DATEWS LDXIM 


*07 


Datumregister 






84 


E4 




STXZ 


ADRES 






4040: 


B60A 


20 


0E 


B4 


JSR 


READ 






4050: 


B60D 


20 


8F 


12 


JSR 


PRBYT 






4060: 


B610 


20 


F3 


11 


JSR 


PRSP 






4070: 


B613 


A2 


08 




LDXIM 


*08 


Maan denreg i ster 




4080 : 


B615 


86 


E4 




STXZ 


ADRES 








B617 


20 


0B 


B4 


JSR 


READ 


■ 


—I . ■ 


4100; 


B61A 


20 


8F 


12 


JSR 


PREYT 






4110: 


E61D 


20 


F3 


1 1 


JSR 


PRSP 






4120: 


B620 


20 


29 


B4 


mE 


PRINT 






4130: 


E623 


31 








M 






4140: 


B624 


39 








'9 






41901 




03 






— 


$03 






4160: 


B626 


A2 


09 




LDXIM 


$09 


Jar^nregister 


■' f. i 


4170: 


B628 


86 


E4 




STXZ 


ADRES 






41601 


M2A 


20 


0B 


B4 


JSR 


READ 




■ -,, 1 " 


4190: 


E62D 


20 


8F 


12 


JSR 


PREYT 






4200: 


B630 


20 


F3 


11 


JSR 


PRSP 






^2Wi 


B633 






11 


JSR 


PRSf! 




' ■ ■■ ) - ■ 


4220 : 


B636 


A2 


04 




LDX IM 


404 






4230: 


B638 


86 


E4 




STXZ 








4^40 S 


163A' 




0B 


B4 


JSR 


READ 


^ > ■ . 






P.A3D 


20 


3F 


12 


JSR 


PREYT 








B640 


20 


29 


B4 


JSR 


PRINT 






4270 1 


iM3 


3A 






s 


> • 




... ]-?Jit .. .vr .. . 


4280: 


B644 


03 






„ 


$03 




*■ ( d-.'- ."- 'i '■ 'j ; '■'t 


4290: 


B645 


A2 


02 




LDXIM 


$02 


■ •All IhI V w s 1 1 iB ^ A SI ^ CI 




4300 s 


B647 


66 


E4 




STXZ 


ADR^S ' 






4310: 


E649 


20 


0E 


B4 


JSR, 






- 


4320: 


B64C 


20 


8F 


12 


JSR* 


PRBYT, 


\ ~ 




43389^^ 


IMF 


■20" 




B4 


JSR 


PRINT 






4340: 


E652 


3A 






m 








43S0: 


B653 


03 






SI 


«03 , 






4360 1 


B654 


A2 


00 




LDXIM 


«00 ' 






4370: 


B656 


86 


E4 




STXZ 


ADRES 






4380: 


B65S 


20 


0B 


E4 


JSR 


READ 






43^ S 


B65B 


20 


8F 


12 


JSR 


PRBYT 






4400: 


B65E 


20 


E8 


1 1 




CRLF 






4410: 


B661 


4C 


5F 


10 




*105F 







CLOCK JUNIOR MICRO-ADE 6502 KENNER 190985 20:43:55 PAGE 08 

... c- - ' : ' ' 
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CLOCK JUNIOR MICRO-ADE 6502 KENNER 190985 20:54:39 PASE 01 



0010: 4160 

0030: I 
0040: 

■mmit 

0060 : 
0070 : 

0090: 
0100: 
01 10: 

0120: 
0130: 

0150: 
0160: 
ilTii 

0itti« 

0210: 
0220: 
^0231911 
0240: 
0250: 
<t26'0: 
0270: 
0280: 

0300: 



CL^OCK ORG $4160 

Datum en tiJsHroutlnps votar JUNIOR met HICRiC^Aie 

Onderstaande routines zorgen er voor dat de Juiste 
datum en tijd afgedrukt taorden tijdens een PASS 2 en 
een TABLE listing. 

Hiervoor is de real-time-uP-klok uit Elektuur <april 
1985) nodig die van tevoren op de voor deze routines 
juiste manier geprogrammeerd is. Register *0B van d«> 
rtC146818 moet ingesteld uiorden op BCD-uit iezen. 

ffjf J, Spit host, 
IfelW, Huismanlaan 51, 
9902 LP Appingedam. 



73 00 



PAGE ZERO ADRESSEN 
DATE ♦ «0075 



Datum en tiJd buffer 



■J 



De2e 6 adressen werden gebruikt om DDMMYY in op 
te slaan bij een koude start van MA. Omdat de datum 
en de tijd in BCD-code uitgelesen luordt, kunnen 
de adressen nu ook gebruikt worden om de tijd in 
op te slaan. De buf-fers sijn nodig^ cmtiiat de data 
die uit de datum en tijdregisters gelezen wordt 
ongeveer 244 uS stabiel blijft. 

Als er uitgelezen en direkt afgedrukt uiordt, kunnen 
er foute gegevens op schi»fm;. en prixitmt^_ vf^-f&i»kli4Sf^p. 

MICRO-ADE SUBROUTINES 



0310: 






EE 


2f> 


OUTSP 




*2DEE 


Druk spatie af 




03S8'S 






CD 


2D 


HEX OUT 




*2DCD 


Print byte als 2 ASCII- 


kar . 


0330: 






F0 


2D 


OUTCH 


* 


*2DF0 


Druk karakter af 




0340: 






E7 


2D 


CRLF 


« 


*2DE7 


Nieuwe regel 




fiO50f 


















0360: 










MCI 468 18 ADRESSEN 






0370: 






70 


18 


CLOCK A 




$1870 


Klok adres 




03e0'i 






71 


18 


CLOCKD 


* 


*1871 


Klok data 




0390 : 




















0400: 


4160 


20 


F8 


3E 


REDATI 


JSR 


POLL 


Wacht tot dat er gelezen 


kan w©ri^p ■' 


0410! 


4163 


A2 


07 






LDXIM 


$07 


Datumregister 


0420 : 


4165 


20 


6D 


25 




JSR 


READCK 


Uitlezen 




04^0: 


4168 


85 


75 






STAZ 




en in de buffer 




04#0i 


416A 


E8 








INX 


Maandregister 


0450: 


416B 


20 


6D 


23 




JSR 


READCK 






0460: 


416E 


85 


76 






STAZ 


DATE 


+01 




0470: 


4170 


E8 








INX 




Jaarregister 


_ f ■. 


0480: 


4171 


20 


6D 


25 




JSR 


READCK 






0490: 


4174 


85 


77 






STAZ 


DATE 


+02 




0500: 


4176 


A2 


04 






LDXIM 


$04 


Urenregister 


' * • ■; ■ ''s' 1 

J. . .' CJ r'/i , 


0510: 


4178 


20 


6D 


25 




JSR 


READCK 




0520: 


417B 


85 


78 






STAZ 


DATE 


+03 


■ ■■ ■ ' ' : f ' 
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6 5 a i2 



0530: 
0540: 

0560! 
0570: 

mmt 

0590! 
0600: 

0620 ! 
0630: 

0650! 

0660: 

06t0s 

0680: 

0670: 

0700 s 

0710 

0720 

0730 i 

0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960: 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 



417D A2 02 
417F 20 6D 25 
4181 m 7¥ 
4184 A2 00 
4186 20 6D 25 



418B E5 
418D 20 

4191 

4198 
419B B5 
4191> 20 
41A0 A9 
41A2 20 
41 AS E8 
41A6 E0 
41A8 00 
41AA B5 
41 AC 20 
41AF 60 



75 
CD 



>D 



E0 
D0 
20 

20 



03 
F6 

EE 2D 

EE 20 
75 

CD 20 

3A 

F0 2D 

05 
Fl 
75 

CD 20 



3EF8 A2 0A 
3EFA 8E 70 18 
3EFD AD 71 18 



3F0O 
3F02 



10 F8 
8E 70 18 



LOXIM *02 Minutenregister 

JSR REAOCK 

STAZ DATE +04 

LOXIM *00 Secondenregistttr 

JSR REAOCK 

PRDATI LOAZX DATE Haal BCD-code uit buffer 

JSR HEXOUT Oruk af als 2 ASCI I-karakterB 

li^X X-reg. was voor ie lc»3p til! 

CPXIM *03 Jaren al gehad ? 

BNE PRDATI Zo nieti doorgaan 

JSR OUTSP Beetje ruimte 

JSR OUTSP 

TIME LOAZX DATE Haal uren en minuten 

jm HEXOUT 

' LDAIM ' : Een pnaif puf»tj»s er tussen 

JSR OUTCH 

im 

CPXIM *05 Minuten al gehad 7 
BNE T?ME ^ Zq niet, halen 

JSR Hfpm^ En druk af 
RTS ' 



POLL uiacht tot er kftn uiorden gelezen uit 
1 van de 10 tij^ ^n datum registers 

POLL LDXIM *0A Reg. *0A bevat UIF-bit 
NOtSET STX CLOCK A 



SET 



3F05 AD 71 18 
3F08 30 F8 
3F0A 60 



254 C 

254 C B9 5E 25 
254F 20 F0 20 

2552 C8 

2553 C0 0E 
2555 D0 F5 
2557 20 60 41 
255A 20 E7 20 
255 D 60 

255E 44 TEKST 
255F 41 

2560 54 

2561 45 

2562 20 

2563 41 

2564 4E 

2565 44 



LOA 
BPL 

STX 
l-OA 

RTS 
ORG 



CLOCKO Haaj^ inhoud van reg. *0A 
NOTSET WacH^ €t5^ bit 7 geset wordt 

CLOCKA 

CLOCKO Haal inhoud van reg. *0A 
'i^T Wacht t^t bit 7 gereset msr^'iHt 



♦254C Patch op GETDAY 



QETDYl LOAAY TEKST 
JSR OUTCH 

INY 

CPYIM *0E 



Haal karakter 
Druk af 

Alles gehad 



JSR 
JSR 
RTS 



S^TdVi niet, doorgitiin 
REDATI Lees datum en tijd en dmk af 
CRLF Nieuuie regel 



'D 

'A 

'T 

'E 

«20 

'A 

'N 

'0 
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E 5 □ iS 



KEIMMER 



1090: 


2566 


20 










4>20 


1 100: 


2567 


54 








as 


*T 


1110: 


2568 


49 








m 


» 1 


1 120: 


2569 


4D 








m 




1 130: 


256A 


45 








s 


' E . . 


1 1A0: 


25 6 B 


20 










*20 


1150: 


256 C 


20 








SB 


*20 


i 1601 
















1170: 










READCK 


leest 


op de Juiste utijze data 


1180: 










u i t de 


REAL- 


TIME-uP-CLOCK 


1190: 
















1 200 : 


256D 


8E 


70 


18 


READCK 


STX 


CLOCKA Adres naar klok 


1210: 


2570 


AD 


71 


18 




LDA 


CLOCKD Data in accu ' ^ 


1220: 


2373 










RTS 




1230: 


2574 


FF 








as 


^FF " ' J'>''> -• ■3: 


1240: 


2575 


FF 










$FF ' 






PF 








s* .. 1 .- 




1 260 : 


2577 


FF 










*FF 


1270; 
1280* 


257i FF 
2579 








m 
as 


*FF 


1 290 : 


257A FF 








s 


''i'sBi^''' ^'a-dcii^ op TOf*PRt '" 


1300: 














1310! 


3519 










ORG 


1 320 : 
















1330: 

A WWW ■ 


3519 


20 


60 


41 




JSR 


REDATI Druk datum en tiJd af 


1340: 


351 C 


EA 








I40P 




1350: 


35 ID 


EA 








NOP 




1 3A0): 

* www " 


35ie 


EA 








NOP 




1370 s 


'351'P 


EA 








NOP 


1380: 


3520 


EA 








NOP 




1390: 


3521 


EA 








NOP 




1400: 


3522 


EA 








NOP 




1410: 


3523 


EA 








NOP 




1420: 


3524 


EA 








NOP 




1430: 
















1440: 


3714 










0R6 


♦3714 Patch op PRTS2 


1450: 














$E3PiTl Druk datum en tiJ4'&f 


t4Afif 


3714 


20 




4i 




liSR 

W Wl\ 


1470: 


3717 


EA 








NOP 




i4S0: 


3718 


EA 








NOP 




1490* 


'371 f 


EA 








NOP 


1500: 


371A 


EA 








NOP 


1510: 


371 E 


EA 








NOP 


IS^i 
i530s 


'3tl€ 
371D 


20 


EE 


2D 




NOP 
JSR 


OUTSP Nog een !5pa*l» 
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SB 5 □ S 



iSM L 



0010 ; COMPRESSOR IliT WIW - ^ A. 

; Frmrm 9mnmm 

0040 ; HillBken^»1lJ^-10 • - - - -u 

0050 : 6546 KG HUWESEH ' > \ ti'^.-j 

0060 

0070 ; Tel 080 - 779555 



0100 -In de BftSIC PROGROM COMPRESSOR geschreven door Ruud Uphoff , . . 
0110 "in 6502 KENNER nr.25 biz. 10 t/m 21 is sen onvolkomenheid ontdekt « 

oi^ 'ftPPtE kent ook het statement RUN, welke gebruikt kan worden met verwijzing 
0140 ;n«ar een regelnummer zoals b. v. RUNIOO of RUN 550 

OlM ;Laat men d« Ctt«pJMi»fS«r himmi lp». .dan gaat er in de «eeste gevallen iets 
0170 ;fout. Dit Horn* er gi^ ftkening gehouden wordt met dit statement. 

0190 ;De e«aet»eth«i« HServser ii gelijk aan de omzetregels vio# «0T0 ew THEN, 
0200 ;zodat het vrij »il»f»S i* Wiflit a 1 snog toe te voegen. 

0220 -Ruud h«|ft hm dW#ttiids v^o¥ verschillende systemen qpgezet welke alle 
0230 -MICROiPT l»Wie lltaitte^^ ' ' ■- ~ ^ 

0250 -Indien itezelfde MM faeiliteit ook voor de andere systeifteW gwldt,V«oBt U 
0260 "zelf j^o Ntl MM tjjken in Uw handboek opsnorren. 

0270 *^'^J^ 'f-''-**^' • ■ ' • - : 

0280 :voor APPLE geldt 

0290 

0300 DflTfl .DE 131 

0310 DIM .DE 134 < • ' 

0320 LET .DE 170 

0330 GOTO .DE 171 

0340 RUN .DE 172 

0350 GOSUB .DE 176 

0360 RETURN .DE 177 

0370 REM -DE 178 

0380 THEN .DE 196 

0400 jDezBlfdB iatoel als op biz. 11 6502 KENNER nr 25 toegevoegd met RUN. 

0420 ;Dan volgt nu de wijziging die nodig is in het gedeelte FURTHER 

0430 -terug te vinden op biz. 17 van 6502 KENNER nr. 25 - > 

0440 ' 

04S0 

0460 . .8^ ♦?iflE 

0'470' ' • ' '"-'^^ ' " ' 

giflE- C9 OB 0480 FURTHER CMP #60T0 
91 BO- FO 14 0490 BEQ JUMP 

0500 : " 7 

91B2- C9 ftC 0510 CMP #RUN ;niBUW 

ilB4- FO 10 0520 ©£8 JUMP ;nieuw]. 

0530 ; — w*— 

giB6- C9 BO 0540 CMP fgOSUB - 

91Ba- FO OE 0550 BEQ JWP 

- r 0560 :en«-*tw» -fmz: - 

0570 

0590 -Zij die hem in wiWMifelet Ni&teen zullen hiermee geen problemen ondervlnden, 

0600 -siiuppl int ikken, m assembleren ! ! 

0I2O ;alle hierna volgende opdrachten worden t.o.v. het originele programma wel 

0630 "4 plaatsen verschoven. Bij toekomstige veranderingen dient men hiermee 

0640 ;terdege rskeni»«8 %9 houden ! ! 

olio -Mooier is fiatwurlijk.ook voor hen dit hem alleen nog maar in machinetaal 

0670 jhebben, om mmn "patch" aan te brengewi. 

0680 , ^ L. ^■ 

0690 :hiertoe schr4a¥WPi eerst de vajgende subroutine 

0700 

0710 » tft WFW 

0720 

BFOO- 4C 00 90 0730 STflRTNIEyW JMP »9000 
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8F03- C9 flB 
8F05- FO 06 
8F07- C9 flC 
aF09- FO 02 
6F0B- eg C4 



91flE- 20 03 8F 

91B1- FO OF 

91B3- C9 BO 

91B5- FO OD 
91B7- Efl 
91B8- EA 
f lBi*- iA^' '•• • 



91Bfl- C9 Bl 

91BC- DO eg 

91 BE- 85 09 
9 ICO- FO C5 

91C2- 85 09 

91C4- 00 01 



0740 

0750 

0760 

0770 

0780 

0790 

0800 

0810 

0820 

0830 

0840 

0850 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

ogeo 
og7o 

0980 

oggo 

1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 

logo 

1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 



RUNPflTCH 



CMP #GOTO 
BEQ RPEIND 
CMP #RUN 
BEQ RPEIND 



;Nor«iaal zouden we zo'n subroutine na het programma schrijven mMr 
mSSPli®" i!?* P'*og''a««a gevolgd word door hef werkgnlab^d van de cfoiftpreas^ 
f tTHBLE) zetten we hem dus si«|»Bl voop het prograwwaaiT ^ 

;De jump aan het begin vaAreg|i%' programma is om te verwijzen naar de l 
;originele start. Uw compressor start van nu af aan <ip:jlaFOO« I 

."^ I 

;Verder blijft er "enige" ruimte over voor toekomsti^liijzigingen. | 
; (*8F0E t/m »8FFF) ■ J ' ! 

;Dit ondat een p9Q%vmmm onderhevif is aan evoluf It. ' 

;"raM>flTCH» zoekt alle statements op i«ilke een gelijke Mtwerking hebben. 

jNadat U dit verwerkt hebt zijn we toe aan de uitwerking van FURTHERCpatcM 
.Bfl ♦91flE 



FURTHER. JSR RUNPflTCH 
BEQ JUMP. 
CMP #GDSUB 
BEQ JMP. 
NOP 
NOP 
MOP 

; *#»«#»*»#«##*«###»«#♦♦# 

m 

CMP #RETURN 

BNE RPT 

STfl *TMPO 

BEQ RPT 



if 

il 

nieuw 

If 



JUMP. 
JMP. 



STfl ♦TMPO 



;eiiz enz enz 



LDY #$01 



WflT MOET U DOEN ??? . ' ' 

om RUNPflTCH dus te gebruiken laadt U eerst de oiginele versie. 

«2I*-''fJ"*^^JdBi??*'' f^*"®* gebt»ii,yan ♦8F00-$8FFF natuurlijk 

eerst met »00 (BRK> zodat we later wet«n gedeelte nog "vrij" is. 

-U typt sprong en RUNPftTCH vanaf $8F00 in. ' ' 

n. b. voor andere computers: 

denk aan token + ander startadi^js*^ > , 

-wijzigt dus FURTHER v. a. $91flE 
-EN SAVE HET 6EHEEL $8F0.0-»9300 

csXo \^i^Ztt:J^^\.^U v«ft de basiecempfessor 

6502 KENNNER nr. 21 biz. 10 t/m 15 

en bij de nabeschouwinq 

6502 KENNNER nr. 27 biz. 12 fe/m 14 

nog eens aangegeven hoe en waarom de basic compressor te gebrutkew. 
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1490 ;Ik zou hier het volgende aan toe willen voegen: 

1500 

1510 ;Bandbezitters hebben het voordeel allang door, 

1520 :zij zijn immers minder tijd kwijt voor laden en saven. 

1530 

1540 ;TerMi4l disk gebruikers nu vake^« juist alia jprsframma' s die bii^ elHaar 

1550 ;]Nef^ ip 1 diskette Meg kunnen zetten, door £e van te voren door de 

15&0 ;coipl>!MRior te "wurmen". 

1570 ?w*(iH'i'"q . 9 

1580 •■ ■ --^ If' •' "Ofa ■ 

1600 ^ ^ « 

1610 f -^i TO - : rans Verberkt 

1620 » U : - 

1630 

1640 

1650 

1660 TMPO .DE 9 

1670 RPT .DE $9187 

1680 JUMP .i>E *9iC6 

1690 JMP .DE *91CS 

1700 

.1710'. ■ ■ ^ ' '-r 



]PR#0 
3 LIST 

10 REM *♦* DEMONSTRflTIE PROBRfill^ivOOR HEI ,|ifl4«N -VAN BRflFIEKEN *«» 

15 REM *** HANS BOSCH 
20 REM 

25 REM »** DIT PROGRflMMfl GEBRUIKT DE MflCHINETfiAL ROUTINE "GRAPHICS. OB JO" 

30 REM **« ALS SEPUBLIC^RD IN DE 6502 KENNER NR.41 VAN DECEMBER 1985, P.35 £V 

35 REM 

90 POKE 34,0: HOME :B$ = "EVEN GEDULD "! PRINT B$ 

120 PRINT CHR$ <4) :"BRUN GRAPHICS. OBJ" : REM $9059. *9485, $KARSET3 $g486.$95FF 

125 IM = 200S DIM X(!M),Y(IM>s HOME.! BOTO 450 

130 IM = 200 I 

170 A = RND (1)!E = 10 (1 + 2 * INT (A - .3)) 

180 YL = 0:YH = YL:J = YL 

190 I = I + l:H = A ♦ I 

200 IF H - X(J) < A » 3 THEN 190 

210 J = J + 1!R$ = 

240 X(J) = H:H = A * E * 100 * SIN (H / 4) / (H + A) . 

250 IF YL > H THEN YL = H:A$ = "MIN": SOTO 280 

260 IF YH < H THEN YH = H:A$ = "MAX" 

280 Y(J) = H 

290 IF I < IM THEN 190 

300 IM = J:XH = X(J): HOME 

310 REM ****** GRAPHICAL PART ###*♦# 

320 HGR : SCALE= U ROT= 0: HCOLOR= 3 ..Sv? 

330 & HLIN 0,XH: & VLIN YL - .8 * YH, YH 

340 & HLIN : & VLIN . , . ; 

350 FOR I = 1 TO IM 

360 FOR J = 0 TO 4 . - - 

370 & PLOT X(I),Y(I) - (J * YH) / 5,J ' Orr 

380 NEXT J.I ,; i>,>l' 

390 & DRAIj "TEKST LANGS AS",X ' • 

400 & DRAW "RATE CM/S",Y 

410 & DRAW "PROBE", 210, 20 

420 FOR I = 0 TO 11: XDRAW 31: NEXT 

430 ROT= 48: & DRAW "ROTATE", 245, 40 

440 VTAB 22: PRINT "VERVOLG MET EEN TOETS"! I^T A$ 

450 VTAB 22: PRINT B$: GOTO 130 

3 ' " ' " ■' 
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FORTH on the VIC 



UIC 



Fred Behringer, Nunchen, Sermany. 

I should like to get in contact with users of the mfPif^&ftC^'mt'W'f^i^H sys- 
tem. Newcomers welcome as I' m a novice too. 

The first thing which was a source of annoyance to me when I started iWfii»Q 
w^^^VUi^^'i!^'-' FORTH system was the incompleteness of the Reference Manual supplied 
by DflTHTRONIC: What about the missing description of the system's words KEY 
PICK, UPPER CURRENT, and FLUSH? ^ 7 

When first trying to get the whole list of FORTH words by typing in VLIST, I was 
surprised of how. difficult it was to get hold. 8f .jthe information present^il 
things flushed by in no time. - • 

So my first FORTH activity wfi^ to construct a new word, I called it *LIST, wjhich 
tries to circumvent^tN t«!it«*«nience mentioned. Here it iss v- 'Vil 

DECIMAL 

1 «LIST 

CR CR LATEST BEGIN DUP ID. CR PFfl LFfl S KEY 13 = IF CR SP! ;S ENDIF DUP 0= 
UNTIL CR SP! ; * • 

On bi?ing activated, *LIST shows all words of the actual vocabulary, one word at 
a Urn, as long as any key (e.g.~iRe CRSR key) is hit. As soon as the RETURN key 
IS hit, the system returns to the terminal ii^EKut loop. 

A similar A^foiiem arose with DUMP. Here if my suggestion: 

DECIMAL ■ 
\ *DUMP 

■^-^eiN DUP DUP DUMP KEY 13 = IF ;S ENDIF 145 EMIT 4 + ABAIN ; 

If called by ' n *DUMP ', where n is the starting address, *DUMP "dumps" as long 
<feTU^> ^^^^ "^^^^ *" terminal by hitting 

fl third problem which came immediately to my mind was the problem of how to in- 
corporate machine code programs into FORTH. Only think of the vast amount of 
ready made machine code subroutines contained in the 16K of the VIC's BASIC in- 
terpreter and its operating system! For instance, if I tried to chanae the tape 
optrations initiated by CSAVE or CLOAD, I would be ill-advised if I Bid not use 
SS?1?^«P£„ these handy routines. Now, the answer obviously is! Employ the 
ASSEMBLER. Unfortunately, the DATAT|?0NIC VIC FORTH SYSTEM has no such^hxng. ! 
am supposed instead to incorporate one bV-.Wping in a list of FORTH words 
supplied by DflTflTRONIC on an extra sheet wflhln its Reference Manual. This 
SBBflied to i»e,tQ be tOQ^«Hch,ado a^out almost nothing. Here, now, t m» very 
p I feased to coww across t hi FORTH word! ' ■ 

HEX 

G USER SO ^ ' - : 

■^it^l piP ;-pteRE • lit l? + > R execute SPI 9E so C! ; ■ 

Hfct^M%'i<i©|i|^rC|tti^^ Fridus Jonkman in DE 6502 KENNER (April igSSJ. 



1 



• leligNii.'-JSR by %pf^°p 
D^i&'-i>:-. 

160 828 C! ( LDY# ) 

5 829 C! ( 5 ) 

140 830 C! (STY ) ■ ' . ' , 

646 831 ! ( *0286 ) 

96 833 Cf ( RTS ) 

find, alas, it did exactly what it was supposed to dol ths TV scrtew colour was 
changed to green (actual colour held in address 64& fay th« VIC's operatinf sys- 

H^T-rF?"''®S*r.. ^Mf, •^ould have been achieved faster than that by simply hlttim or 
EMITting CTRL/BRN. But to me it was an impressive piece of demonstration of how 
easy it can be to incorporate machine code subroutines into FORTH. 
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#»**# *♦**» 
**«#* LET IT BE ***** 

^^^^^ ^^^"^^ 

fajTEUR! Will Guijpers, Tholen. , ,y 

SYSTEM t El«ktiMir CKTlPUi ©l^rCOMPUTER 

ivser de muzikale capaciteiten van de CBM 64 is al genoeg lof geuit. Zoveel zelfs 
dat ik geinteresseerd raakte in de hardware rond dit qeluidsfenomeen. Uit oe 
hardware van de CBM 64 en de Reference Guide begreep ik dat het een fluitje van 
een cent betekende: 32 vrije adresplaatsen, twee SN74LS668 en natuurlijk de 
6581. De 6581 is verkrijgbaar voor priizen die op dit moment sterk vaneren. Van 
HFL 110 = bij DIL tot HFL 50,= in de USfl. Deze laatste prijs is natuurlxjk sterk 
»fl»ankB\ijk van de dollarkoers. 

in een OCTOPUS 



Bit mij 
fie, A6 en 05 staan met di 



fldresserinq van de 6581 lijkt mij voor ieder duidelijk. 

staat de 6581 op *E160 tot $E17F. Dus fll5, fil4, fll3, ^ ^ . , 

DIL-schakelaars open, terwijl de 012, Oil, fllO, 09 en 07 via de DIL-schakelaars 
op staan. Men diene er wel op te letten dat de 04 adreslijn op de chip zit, dus 
een bereik van X150-X16F gaat met. r. - nuM t/. ' 

Voor verdere informatie verwijs iK naar de Reference Guide de CBM 64 en 
natuurlijk alle voopbeeldprograiiMfta's die bestaan. 



I PRINTCHR$(12) :PRINT" ***** 

4 FOR I=57728T057752 

5 POKE 1,0 

6 NEXT I 

10 EERSTE=57728 

II V0LUME=EERSTE+24 

13 UIT=EERSTE+6 

14 H1=EERSTE 

15 H2=EERSTE+1 . . 

16 G0TE=EERBTE+4 

20 POKE VOLUME, 15 

21 P0KEfl0N,23 

22 POKEUIT, 123 
30 REOD HOOGTE.DUUR 
40 IF H006TE=0THENEND 
50 F2=H00GTE/256 : F 1 =H006TE-F2*256 



LET IT BE #*♦♦*" 

*"60 P0KEH2,F2:P0KEH1,F1 . , 
70 P0KEGflt^,33!F0RI»0T0DUUR*W- 

75 NEXT 

80 P0KEGflTE,32:P0«tfiSfailttt*l#0 
85 NEXT 

90 G0T030 ,^ , . 

100 D0T06430, 1, 6430, 1, 6430, 3, 6430, 1, 7217, 2 
150 D0T05407, 2, 6430, 1, 6430, 2, 8583 3, 9634^ 
200 D0T09634, 1, 108li, 10814, 3, 9634, 2, 9634, 



De redaktie roept hierbij alle be- 
zitters van EC65 en OCTOPUS op hun 
zelf ontwikkelde software od te 
sturen naar de redaktie en zo mee 
te helpen aan de verdere uitwisse- 
ling van kennis en ervaringen. 



250 D0T08583, 1, 8583, 5, 10614, 1, 10814, 2, 

11457,3,10820,2 ^^^^ 
300 DflT0l58i4, 2, 9^34, 4, 10814, 1, 9634, 1, 9634, 
1,8583, 11 

400 Df^Tfll0&14, 1,9634,2,8534,5, 10814, 1, 

12860,2,14435,5 
450 D0Tflli8kL 1, 1^860,2,10814,3,6439,2, 

6439, 1,6439,2 
500 D0Tfll06l4,g, 10814, 1, 10814,2, 11457,3 

10820,2,10814,2 ^ ^ 

550 DftTft9fe3i, 4, 10&14, 1, 9634, 1, 9634, 1, 8583, 
15,0,0 , ^ 

- I t2l«:^^^B|^|fi5i^#re-«Clie«^ volgende paf ina^ 



kaart "(OpU v^n iss Co^p.tertjchnik) op de APPLE II gaat «»|P^3 l^et uitscha- 



Van Marcel Visser vernamen wij het volgende 
0P16 van IBS Computertechnik) -- ' 
door het intypen van CTRL-Zl. 



kelen 
indien 
hook 



De reden van deze vreefliefe control code is: 

APPLE He 80-kolo,Y,skaart heeft iets soortgeli^ks. Hier gebeurt het uitschakelen 

(lidfr of^rldlktie verneemt graag wie dit probleem herkea^. Zij vprneemt nog 
liever hoe dit op te lossen is.) 
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ElEi SOS 



+5VO 




6N0 



Ag ' 

Kmc 
AK|< 

^i5< 



it 

a 

^ 6 3 



IS". 



1— lltl^w 



6MDO- 



5 

6 3 



lOK 



Aan de tekentafel : 
Fridus Jonkun 



Micy\r<i 2& roersBi^? maa^ wee- , 
;ei?5iepwAAiew6e , wi> HesBEto 



EK) PArJ— HET '* eeis) 



f?^>K AL weee ? 



IK QACHTH\BfZ 



PA'S PE ^ . . . 
EM PAAI?Mee 

KUN)K;ero vve pg^ 




LU0D'SJ3M0|jAll0p'MMM 

1^6 5 O kenmefT" 



0020 
0022 



0040 
0050 
OO&O 
0070 



f 

|ffH««ifHH«i«ii«Hi«if 6RAF-V2.4 *mvHHi*tH**^mmwmm 

I Xt* 

I 

} 



JJA Janssen 
6erardsN8Q 30 
6525 RT N1JHE6EN 
080-562082 



7000- 
7002- 
7005- 
7007- 
700A- 
700D- 
7010- 



A9 OC 
20 34 
A9 FC 
2D 80 
BD 80 
20 13 
EE 80 

- A9 00 



0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
O300 
0305 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
wTOO 
• 0460 
0470 
0480 
0490 
0500 
0510 
0520 
I 0530 
< 0540 
0550 
0560 
0570 
0580 
0590 
0600 
13 0610 
0620 
19 0630 
19 0640 
70 0650 
19 0660 
0670 
0680 



1 
I 
I 
i 
f 

jtfH«i«f«<tf*f«f»«««<Mf(*«fii««ff<t<«««»«HHHHM«<filfftUI 

■ 

;Dit softHarepakket onvat een aantal routines voor de grafiisdte 
jkaart zoals beschreven staat in 'DE 6502 KENNER 36'. 
jDaarnaast kan dit pakket 9ls vfforbeeltf tfienen ^H»r miwrt'.%T*- 
;fische toepassingen, 

jNust een aantal systeeiafbankeli jke routines bevat dit pakket 
;de volgende {uncties; 
S 
5 
5 

I 
I 
■ 
f 

I 

! 

5 
■ 
I 



- PLQKX.Yl 

- unplotIx.y) ; jn 

- LOOKIX.YI ... " 

- DRAH(!(I,Y1,X2,Y2» 

- SIN(Fl) 

- C0S<F1I 

- CIRCLE<X2,Y2,R1 

- ftRC(X2,V2,R,Ft,^J . _ _ j I 

I f itiH'HHMf f ltf|yi«llNpl.fN>il^ 
f 

k .DE fiO : Y-coordinaat Ion byte 

W .Km ; X-coordinaat M# byt* >■< 

Y .DE fl2 j Y-coordinaat ;^ - 

5 16 bits j»i»t«r- 



.DE fiO 

.DE »11 

.DE 112 

.DE 113 

.DE fl4 

.DE lis 

.DE tL 

.DE IK 



} 16 kiti pfiMer 



AL 
AH 
T 

TABL 
TA8H 

imi 

^RE6 
DREG 

; De subr. INIT vult de registers van de 6845 
; en zet de cursor UiAs ttdWffi bet sc^% 



.DE 11334- -|;fM«i»;W««»— 



.DE ID800 
.DE ID801 



address-reoister van de 6B4| 
data-register van de 6845 



IIIIT 



.DE IC80 

.6A »7000 
.OS 



De fg«f;UM^ Fotftines 



; Subr. CIS: 

I CIS aaakt het VM! en het grafiielf ichert scttfitHi. 



IDA t$C 
JSR PRINT 
IDA tIFC 
AND »1980 
STA tl980 
JSR CL51 
INC 11980 

IDA to 



; aaak het VDU-schera schoon 

; zet i» op 
I de, bsvcnste 8K 

; aaak bovenste 8K schoon 
; neei onderste 8K 

; vul het gebietf'vift!' 
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- "w 



7015- A8 

7016- 85 13 
7018- A9 BO 
70lfl- 85 14 
701C- ft? 00 
701E- 2C 82 19 
7021- 30 FB 

M 13 
& 

m n 
m 14 

AS 14 
C9 00 
10 iC 



7023- 
7021- 
70M- 



702ft- 
702C- 



7030- m. m 

7031- 20 3t 13 
7035- 60 



7036- 20 67 70 
7039- 2C 82 19 
30 Ft 
11 13 
2C 82 1? 
30 fB 

*i 13 



703C- 
703E- 
7040- 
7043- 
7045- 



7047- 60 



704t- 20 67 70 
704B- 49 FF 
704D- 2C 82 19 

30 FB 

31 13 
2C 82 19 
30 FB 
91 13 
60 



7050 
7052 
7054 
7057 
7059 



705C- 20 67 70 
705F- 2C 82 19 
7062- 30 fl 
7064« 31 13 
7066- 60 



0490 
0700 
0710 
0720 
0730 
0740 
0750 

m 
mm 
im 
mm 



CLS2 
CLS3 



1130 



0870 ; 



TAY 

STfl »ftL 
LDft t$B0 
STA »AH 
LOft 1100 
BIT »1982 
BHI aS3 
STft (AL),Y 
INY 

6NE CLS3 
INC iftH 

Lift m 
^ iffiO 

BNE CLS2 

LDft tic 
JSR PRINT 
RTS 



$B0OO tot *WHi wt 100 
flDRES '."WM^ 
REPEAT 
Hacht ap sync. 



(ADREsX != 0 

ADRES,Y := ADRES,Y * 1 
UNTIL AORES = $0000 

■aak VDU-schera schoon 



0890 j Subr. PLOT zet een puntje Neg op de coordinaten )^Y 
I dit gebeurt gediir«uif dt syRchr)Siii^tiC| zo|^^j^jfl«) 



f storfnaen op het (rteld toitn, tiurim m tincpfic^i 
; afneemt. Indien dit niet geitenst is kWMR fliiMli 
; PHI, PH2, UMl, UN2 e.t.c. vervangen Kordfn dnnrWll 

• 

I IIIW t ]tM,IL l-coordinaat 
; Y 1^r£0Qt;dii|ut 

j OUTPUT: een puntje op het scbera op de plaatt X,y 

^LOT JSR PLOTl ; bereken adres en bitpatroon 
PW BIT ♦1982 ; Mcht . j . 

J op sync ■ , 



0910 

0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 



f$l« 
1020 
1030 

i«io 



1060 
1070 



PN2 



JSR PLOTl 
BIT 11982 
BHI PHI 
ORft (AL).Y 
BIT »1982 
BNI PH2 
STft (AL),Y 
RTS , 



; Nacht 

i op sync 

; set net bitje 



I'' ' 

0' ■ 



1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 

nm 

1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1110 
1320 
1330 
1340 



; Subr. UWLOT is gelijk aan subr. PLOT, allef^,j!U wrdt het 
; puntje Neggehaald. ' 

&NPLOT 

UHl 

UN2 



JSR PLOTl 
EOR tIFF 
BIT fl982 
BHI UHl 
AND (AL).Y 
BIT »1982 
BHI UH2 
STA (ftL),Y 
RTS 



I reset het bitje 



! Sttbr. LOOK Hjkt itt w^'it plwts I,Y een puntje staat 



INPUT 



XH,1IL X-cQordinaat 

y Y-coordinaat 

i OUTPUT! ftCCtt fiCCU = 0 (2-flaq = 1) ==> puntje niet aanwezig 

; ACCU > 0 (Z-flag = 0) ==> puntje Hel aaniiezig 



Lm 



JSR PLOTl 
BIT 11982 

BHI m 
AND m^x 

RTS 
.CT 



; bereken adres en bitpatroon 
; Hacht 
i sync 

i ACCU en Z-flag goed 



m tote 

1040 



1050 { PLOTl berekent uit de ][,Y-coordinaten de geheugenplaats 
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KEIMMER 



7067- A9 

7069- fl8 
706A- 85 
706C- fi5 
706E- 29 

7070- 85 
7072- fl5 
7074- 29 
7076- 85 
7078- 06 
707fl- 26 
707C- 06 
707E- 26 

7080- 18 

7081- 65 
7083- 85 
7085- A5 
7087- 69 
7089- 85 
708B- 06 
708D- 26 
708F- 06 
7091- 26 
7093- 06 
7095- 26 
7097- 06 
7099- 26 
709B- A5 
709D- 29 
709F- 05 
70fll- 18 
70A2- 65 
70h4- 85 
70fl6- A5 
70A8- 69 
70AA- 65 
70AC- 09 
70AE- 85 
70B0- C9 
70B2- 30 
70B4- 38 
70B5- E9 
70B7- 85 
70B9- AD 
70BC- 29 
70BE- 09 
70C0- DO 
70C2- AD 
70C5- 29 
70C7- 8D 
70CA- A5 
70CC- 29 
70CE- AA 
70CF- BD 



00 

14 

12 
07 
15 
12 
FB 
13 
13 
14 
13 
14 

13 
13 
14 
00 
14 
13 
14 
13 
14 
13 
14 
13 
14 
10 
FB 
15 

13 
13 
14 
BO 
11 
80 
14 
DO 
OE 

20 
14 

80 19 
FD 
01 
05 

80 19 
FC 

80 19 
10 

07 

D3 70 



INPUT 



1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 , 
1240 PLOT! 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 

1710 N0HI6H 
1720 

1730 PLOTC 

1740 

1750 

1760 

1770 



en bitpatrosn (180, $^ ... *02t t^i) mtt ^Ifmtje. 



XH.XL 
Y 

OUTPUT: AH.AL 
ACCU 



10 bits X-coordinaat (0-640) 
8 bits Y-coordinaat (0-200) 
adres van de coordiiutttft M \i 
bitpatroon ' 

Het adres Hordt berekend let de Zonule: 



AH.AL := (8»INT(Y/B)»B0 + StlNKX/B) + (Y-8»INT(Y/B) + $8000 



Het bitnuiner volgt uit de foriule: 



; Att.ftL 



ACCU := X-B»INT(X/8) 

Het dit bitnuiner Hordt, d.i 
dtsbetreffende bitje geset. 



im to 

TAY • ■ 
STA »AH 
LDA JY 
AND 117 
STA tT 
LDA *Y 
AND fIFB 
STA fAL 
ASL lAL 
ROL »AH 
ASL fAL 
ROL *AH 
CLC 

ADC »AL 
STA lAL 
LDA »AH 
ADC to 
STA »flH 
ASL tAL 
ROL »AH 
ASL »AL 
ROL »AH 
ASL tAL 
ROL m 
ASL tAL 
ROL tflH 
LDA iXL 
AND t$F8 
ORA tT 
CLC 

ADC tAL 
STA tAL 
LDA fAH 
ADC HBO 
ADC tXH 
ORA HBO 
STA tAH 
CMP im 
BUI N0HI6H 
SEC 

SBC H20 
STA tAH 
LDA 11980 
AND IIFD 
ORA HOI 
BNE PLOTC 
LDA 11980 
AND HFC 
STA J1980 
LDA tXL 
AND 17 
TAX 

LDA PLOTTAB.X 



,v. de Label PLOTTAB, het 



'\. (St 



T := Y-B*1NT(Y/8I 



n.:i''':-'S)'i-;-\ 



5 ftH.AL WIIIT(W»|^: 



AH,AL !- BfINT(Y/.B)i80 



AH.AL 



BiINT(y78)iB0 4 
fliINT(X/8) + 
Y-BtlNT(Y/8) + 



AH,AU;;^^'f#ttp- lie viiliijieid) 

2de blok 

zet de PIA goed 



Iste blok 

zet de PIA goed 

ACCU := bitnumr 



LUOD'SJ3MO|jAl50p'MMM 



EIE SOS 



70D2- 60 

7003- BO 40 20 
70Di- 10 OB 04 
70D9- 02 01 



70DB- A9 00 
70DD- 8D 61 19 
70E0- BD 83 19 
70E3- BD 82 19 
70Ei- fl9 FF 
70E8- BD 80 19 
70EB- fi9 04 
70ED- BD 81 19 
70F0- BD 83 19 
70F3- A9 IC 
70F5- BD 80 19 
im- 60 



1780 
1790 : 

IBOO aOTTAP 



70F9- fi9 
70FB- 20 
70FE- ft9 
7100- 2D 
7103- 09 
7105- BD 
7108- A2 
710A- 8E 
710D- BD 
7110- BD 

7113- CA 

7114- 10 
7116- 60 



IC 

34 13 
F3 

80 19 
10 

80 19 

09 

00 DB 
17 71 

01 D6 

F4 



7117- 78 50 5C 
711A- OA 26 
71 IC- 00 19 IF 
71 IF- 00 07 



7121- A9 IC 
7123- OD BO 19 
7126- BD BO 19 
712f- 4C 80 OC 



712C- A9 10 
712E- 4D 80 19 
7131- 8D 80 19 
7134- 60 



RTS ; ACCU := bitpatroon 

.BY m MO »20 «10 B 4 2 1 



1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

20B0 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 



Subr. INITPIA initialiseert de PIA (6B21), na eeit 
reset dient deze routine aangeroepen te Horden. 



Initpia 



LDfl too 
STA 11981 
STA J1983 
STA tl9B2 
LDA «FF 
STA »1980 
LDA 14 
STA tl981 
STA 11983 
LDA IIIC 
STA 11980 
RTS 



; CRA-2 != 0 

j CRB-2 != 0 

I poert B :> input 

; poort A output 

i CRA-2 := 1 

; CRB-2 := 1 

; graTisch display uit 



, 1 Jl' «V -I-!. 



Subr. ON zet het qrafisch display aan en vult de 
registers van de 6845 set de xaarden uit de tabel 
TAB, zodat er een trillingsvri j beeld ontstaat. 

Het display koit in de niet geinverteerde 
tHee kleuren nde. 



ONI 



LDA tllC 

JSR PRINT 
LDA IIF3 

AND I19B0 
ORA HIO 
STA $1980 
LDX l$9 
STX AREG 
LDA TAB.X 
STA DREG 
DEX 

BPL ONI 
RTS 



cursor hoie 

Pa2 en Pa3 := 0 ==> 
2 kleuren 

Pa4 := 1 ==> noriaal beeld 

X := 9 

REPEAT 

address register ;= X 
data register := TAB(X) 
X != X - 1 

UNTIL X < 0 



Haarden voor de registers van de 6845 on een 
stilstaand beeld te krijgen, deze loeten lisschien 
aangepast Norden (■.u.v. 2e, 7e, 9e en lOe byti). 

IaB ,B¥ I7B »50 ISC «0A 126 

.BY too 119 flF «00 t07 



; Subr, 

6ff 



OFF zet het display uit. 



Pa2,Pa3,Pa4 = 1 
initialiser VW^^tiert 



2270 
22B0 
2290 
2300 
2310 
2320 
2330 

2340 i . ..1 

2350 ; Subr. INV inm-teert het graf isch dis|tl«r- 

2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 

2440 « . - 

2450 ;De knipperfunctie is nog steeds te gebrutken. 



Inv 



LDA tllC 
ORA $1980 
STA 11980 
JHP INIT 



LDA tllO 
EOR »1980 
STA »1980 
RTS 



toggle PA4 



jDRIEKL zet het grafisch display in de drie kleuren 
;iode. De horizontale resoluiie neett een factor " 



2 af. 



LUOD'SJBMOyAllOp'MMM 



KEIMMER 



7135- AD BO 19 
7138- 29 F7 
713fl- 09 04 
713C- 60 80 19 
713F- m 



7140- AD 80 19 
7143- 29 FB 
7145- 09 OB 
7147- 8D 80 19 

714A- m 



714B- AD aO 19 
714E- 29 BP 
7150- 09 20 
7152- 8D 80 19 
71K- AO 



7154- AD 90 19 

7159- 29 DF 
715B- 09 04 
715D- BD 80 19 

7160- 60 



7161- AD 80 19 
7164- 49 80 
7166- BD 80 19 
7169- 60 



2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2BB0 
2890 
2900 
2910 
2920 
2930 
2940 



LDA $1980 
AND «F7 
ORA l$04 
STA 11980 



jACHTKL zet het qrafisch diplay in de acht kleureniode. 
;De horizontale resolutie is een factor 2 kleiner dan 
;bij DRIEKL. De knipperfunctie is niet leer te gebruiken. 



icHTKL 



LDA tl980 
AND t$FB 
ORA i$08 
STA 11980 
RTS 



KNIPON zet de knipper«ode aan, het knipperen 

gebeurt softwarenatig «et de routine TOGGLE, 
e horizontale resolutie xordt een Tactor 2 kleiner. 
Voor hardMareiiatiq knipperen loet gelden Pa6=l 
(zie Offlfc de label in 'DE 6502 KENNER 36' biz. 61. 

RNIPON LDA I19B0 
AND IIBF 
ORA H20 
STA $1980 
RTS 

iKNIPOFF zet de knippertode uit. 

;De horizontale resolutie Nordt Neer een factor 2 groter. 



biPOFF 



LDA $1980 
AND l$DF 
ORA l$04 
STA $1980 

RTS 



Na elke aanroep van TOGGLE Mordt het HSB-bitje van elk punt 

?einverteerd. 
ndien nSB=l — > punt aaoNezig. 
Indien HSB-0 ~> punt niet aaniiezig. 



Iqggle 



LDA $1980 
EOR t$80 
STA $1980 
RTS 

.CT 



F03 1882 #1F0-SA72 



0010 


• 




0020 


: ParaKters voor de 


0030 






0040 


ilL 


.DE XL 


0050 


m 


.DE XH 


0060 


Yl 


.BE Y 


0070 


ni 


.DE 116 


0080 


m 


.DE $17 


0090 


Y2 


.DE $18 


0100 


DXL 


.DE $19 


0110 


DXH 


.DE $1A 


0120 


DY 


.DE $1B 


0130 


S 


.DE $1C 


0140 


R 


.DE $1D 


0150 


TEMP 


.IE HE 


0160 


• 
1 




0170 


; Pariiet«-s voor ile 


0180 






0190 


ilVI 





routine DRAN. 

{ X1,Y1 is beginpunt v/d lijn 

) X2,Y2 it eindpunt v/d lijn 

; DXH, DXL := ABS(X2-X1» 

; DY := ABSiY2-Yl) 

; stapqrootte 

; resUaarde v/d stapgrootte 

; scratch friie^iwpllits 

routine mm. 
; deeltal high. byte 



30 
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Ei Q 



7I6A- 


AO 


10 


716C- 


A9 


00 


7I6E- 


85 


13 


7170- 


85 


14 


7172- 


06 


IF 


7174- 


26 


IB 


717i- 


25 


14 


7178- 


26 


13 


717ft- 


38 




717B- 


A5 


14 


717D- 


E5 


19 


717F- 


85 


IE 


7181- 


A5 


13 


7183- 


ES 


lA 


7185- 


90 


06 


7187- 


85 


13 


7189- 


AS 


IE 


7teB- 


BS 


14 


718D- 


26 


ID 


718F- 


26 


IC 


7191- 


B8 




7192- 


DO 


DE 


7194- 


60 





0200 DIVIL .DE IIF ; deeltal Ioh byte 

0210 DIVR .DI DXH ; deler high byte 

0220 DIVRL .DI DXL i deler Ion byte 

0230 DIVO .DI S : quotient high byte 

0240 OIVOL .DI R ; quotient Ion byte 

0250 DIVSC .DI AL j scratch geheugen.- 

0260 OIVSCL .01 AK ; idei 

0270 i 

0271 iDIVIDE voert de volgende deling uit: 
0370 

(DIVO.DIVOL) (DIVI, DIVIL) / (DIVR, DIVRL) 
<-H->,<--L^-> 



03B0 
0390 
0400 
0401 
0402 
0403 
0404 
0405 . 
0410 DIVIDE 
0420 
0430 
0440 

0450 DIVl 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 j 
0600 DIV2 
0610 
0620 
0630 
0640 
0650 



In de routine DIVIDE wordt de stapgrootte S (let fractie R) uitgerekend. 
S,R := 256tDY / DX ' ' ; 



LDY 116 
LDA 10 
STA tDlVSC 
STA JDIVSCL 
ASL »D1V1L 
ROL »DIVI 
ROL tDlVSCL 
ROL »D1VSC 
SEC 

LDA JDIVSCL 
SBC »DIVRL 
STA »TEHP 
LDA »DIVSC 
SBC tDIVR 
BCC DIV2 
STA »DIVSC 
LDA tTEIIP 
STA tDIVSCL 

ROL »DIVOL 
ROL ♦DIVO 
DEY 

BNE DIVl 



Herhaal voor 16 bits 
Schuif OIVI 

Rol carry in DIVSCR 

IF DIVSCR DIVR TFEN 



I BE6IN 

; DIVSCR I' DIVSCR 
i carry »« 1 

; END 

; ELSE carry t" 0 

! rol carry in DIVO 



Neei het volgende bit 



DIVR 



0660 
0665 
0670 
0680 
0690 
0695 



Subr. DDDY kijkt of DX grotflr if 4m DY. 

IM>UT : DXH,DXL two's coiplenent van DX 
OY tHo's coipleaent vaq D¥ 
OUTPUTS N-f lag N»Q iiiili«r DX>D¥ ^ 



7195- 


A5 


lA 


0700 DX>DY 


LDA iDXH 


7197- 


DO 


OB 


0710 


BNE DXl 


7199- 


A5 


19 


0720 


LDA »DXL 


719B- 


45 


IB 


0730 


EOR m 


7190- 


30 


06 


0740 


BHI DX2 


719F- 


38 




0750 


SEC 


71A0- 


A5 


19 


0760 


LDA ♦DXL 


71A2- 


E5 


IB 


0770 


SBC ♦DY 


71A4- 


60 




0780 DXl 


RTS r : 


71A5- 


AS 


IB 


0790 DX2 


LDA »DY 


71ft7- 


60 




0800 
0810 ! 


RTS 








0815 ; CHANGE verMisselt begin- en 








0816 : Behoort bij routine DRAM. 


71A8- 


AS 


10 


0817 : 
0820 CHANGE 


LDA ♦XIL 


71AA- 


48 




0830 


PHA 


71AB- 


AS 


11 


0840 


LDA ♦XIH 


71AD- 


48 




0850 


PHA 


71AE- 


AS 


12 


0860 


LDA ♦Yl 


71B0- 


48 




0870 


PHA 


71B1- 


AS 


18 


0880 


LDA ♦Y2 


71B3- 


85 


12 


OB90 


STfl »Y1 



il ■ 



LU0DSJ8ftft0|^A:i;0p'ftAMftA 




KEIMIMEIR 



N l fij T i l l 



71B5 
71B7 
71B9- A5 17 
71BB- 85 11 
71BD- 68 
71 BE- 85 
71C0- 68 
71C1- 85 17 
71C3- 68 
71C4- BS 16 



AS 16 
85 10 



18 



38 
A5 16 



71C6- 
71C7- 
71C9- E5 10 
71CB- 85 19 
71CD- A5 17 
71CF- E5 11 
71D1- 85 lA 
71D3- 30 03 



71D5- 
71D7- 
71D9- 
71DB- 
71DC- 
71DE- 
71E0- 
71E2- 
71E4- 
71E6- 
71E8- 
71EA- 
71ED- 
71F0- 



71F3- 
71F4- 
71F6- 
71F8- 
71FA- 



A5 12 
45 18 
30 OB 
38 

A5 18 
E5 12 
FO OE 
10 09 
DO 04 
A5 12 
10 03 
4C F3 71 
4C 3B 72 
4C E7 72 



38 

A5 12 
E5 18 
85 IB 
20 95 71 



71FD- 30 23 



7iFF- 20 
7202- A9 
7204- 85 
7206- 20 

7209- 38 
720A- A5 
720C- E5 
720E- 85 

7210- A5 
7212- E5 
7214- 85 
7216- 20 
7219- DO 
72 IB- fl5 
721D- 85 
72IF- 4C 



6A 71 

00 

IE 

83 72 

IE 
ID 
IE 
12 
IC 
12 

93 72 
EB 
18 
12 

lb 70 



0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 , 
1010 DRAU 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1081 
1082 
1083 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 

1180 DMIil 
1190 

1200 SITA 



LDA tX2L 
BTA nil 
LDA »X2H 
STA »X1H 
FLA 

STA m 
PLA 

STA tm 

PLA 

STA »X2L 



ft :r 



Subr. DRAH trekt een lijn tussen tmee punten. 



INPUT 



KIH.IIL 
Yl 

X2H,X2L 

yJ 

SEC 

LDA mi 

SBC nil 

STA ♦DXL 
LDA >X2H 
SBC fXlH 
STA »DXH 
BMl CHANGE 



X-coordinaat beginpunt (0-6401 
Y-CQordinaat beginpunt (0-200) 
X-coordinaat eindpunt (0-640) 
Y'coordinaat lindpunt (0-200) 



DX :» X2 - XI 



verMissel begin- eindpunt indien DX<0 



bereken de richting v/d lijn. 

LDA tVl 
EOR »Y2 
BHI DRAHl 
SEC 

LDA ♦Y2 
SBC JYl 
BE8 HOR 
BPL SITD 
BNE SITA 
LDA »Y1 
BPL SITD 
JMF DSITA 
jnP D51T0 

m mm 



1210 SITD 
1220 HOR 
1230 ; 

1240 I RC v/d liiR 0-W radkn 
1250 



; Dalende lijn 
; Stijgende lijn 
j Hw-izontale lijn 



i2«0 DSITA 
1270 



SEC 

LDA »Y1 



1280 SBC »Y2 

1290 STA *DY 

1300 JSR DX>DY 

1310 BHI DSl 

1311 ; 

1312 i RC v/d lijn is 45-90 qraden 

1313 J 
1320 
1330 
1340 

1350 BS2 
1360 



j m i* ¥1 - Y2 



1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 



JSR DIVIDE 
LOA to 
STA *TEHP 
JSR PRNDY 
SEC 
LDA iim 
SBC tR 
STA *TEHP 
LDA tVl 
SBC IS 
STA »Y1 
JSR INCXl 
BNE DS2 
LDA »Y2 
STA »Y1 
m PLOT 



Indien DX<DY dan 
RC v/d lijn is 0-45 graden 



Bereken stapgrootte 



I REPEAT 
i PLSr(](l,Yl> 



; XI :* XI 4 1 



; UNTIL IM2 
i PUIT(X2,Y2I 
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AS 12 
C5 IB 
BO FS 



7222- 20 05 72 
7225- 20 M 72 
72!^- C6 12 
722ft- 
722C- 
722E- 

7230- ft5 17 
7232- 85 11 
7234- A5 16 
7236- 85 to 
72^ 4C 3i 70 



723B- 38 
723C- A5 18 
723E- E5 12 
7240- 85 IB 
7242- 20 95 71 
7245- 30 23 



1490 ; RC v/d lijn 0-45 grtilen 

1500 



7247- 20 
724A- A9 
724C- 85 
724E- 20 

7251- IB 

7252- A5 
7254- 65 
7256- 85 
725B- A5 
725A- 65 
725C- B5 
7231- 20 
7261- BO 
7263- AS 
7265- 15 
7267- 4E 



1510 &51 
1520 0S4 
1530 
1540 
1550 
1560 
1570 



6A 71 

00 

IE 

83 72 

IE 
ID 
IE 
12 
IC 
12 

93 72 
EB 
IB 
12 

36 70 



JSR CHDXDY 
JSR PADDH 
DEC »Y1 
LDA »Y1 
CUP tY2 
BNE DS4 
LDA «K2H 
STA »nH 

LDA *X2L 



1610 M Km 5 PL0T1](2,Y2» 

1620 ; 

1630 : RC v/d lijn 270-360 qraden 
1640 ! 

1650 DSITD SEC 
1460 LDA ♦Y2 

SBC JYl { m :» Y2 - ¥1 

STA »DY 

JSR mm 

BMI DS8 



VerMissel DX ffi D¥ en bereken staffrmfttti 

REPEAT 
PL0T(X1,Y1) 

n := Xl * stapgrootte 
Yl := Yl -1 
i UNTIL Y1=Y2 



726A- 20 D5 72 
726D- 20 A4 72 
7270- E6 12 
7272- A5 12 
7274- C5 18 
7276- DO F5 
7278- A5 17 
727»- 63 11 
727C- m 16 
727£- 8S 10 
7280- 4C 36 70 



7283- A5 IE 
7285- 10 02 
7287- E6 12 
7289- 20 36 70 
728C- A5 IE 
72BE- 10 02 
7210- C6 12 
7292- 60 



RC v/d lijn is 315-360 qraden 

Bereken stapgroottt 



1670 
1680 
1690 
1700 
1701 
1702 
1703 
1710 
1720 
1730 

1740 OSS 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1630 
1840 
1850 
1860 
1B70 \ 

1880 i RC v/d lijn 270-315 graden 

1890 

JSR CHDKDY 
JSR PADDXl 
INC tn 
LDA »Y1 
CMP »Y2 
BNE DS7 
LDA *X2H 
STA »X1H 
LDA »X2L 
STA iXlL 
JHP PLOT 



Indien DX<DY dan 
RC v/d lijn is 270-315 graden 



0»'/ 



JSR DIVIDE 
LDA to 
STA tTEHP 
JSR PRNOY 
CLC 

LDA ITEHP 

ADC ♦R 
STA »TEHP 
LDA *Y1 
ADC >S 
STA »Y1 
JSR INCXl 
BNE DS5 
LDA »Y2 
STA iYl 
JHP PLOT 



0>? 



S REPEAT 
J PL0T(X1,¥1» 
; Yl c" Yl * stapgrootte 



XI :« XI *l 



UNTIL X1>X2 



I PL0T(X2,Y2) 



Verwissel DX ^ iff en b«H-ekeh itiqigrootte 

REPEAT 



PL0T(X1,Y1) 
XI := xl + 
Yl := Yl + 
UNTIL Y1=Y2 



stapgrootte 



I PL0T(X2,Y2) 



' J 



S »0J 



1900 is8 
1910 DS7 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 ! 

2015 iPRNDY rondt Yl af Ifractie van Yl staat in TEHP), waarna de 

2016 :routine PLOT Hordt aangeroepen. 

2017 ;Bij ket verlaten v/d routine PRNDY bezit Yl Neer de oude naarde. 

2018 

LDA »TEHP 
BPL PRl 
INC tYl 
JSR PLOT 
LDA tTEHP 
BPL PRE 
DEC fYl 
RTS 



2020 
2030 
2040 

2050 PRl 
2060 
2070 
2080 
2090 PRE 

2100 ; 

2101 ;INCX1 

2102 ! XI 



= XI + 1 



■ J ij \ 



2103 ; Z-Uag :< 1 indien X1-X2 



LU03'SJ9M0|^AH0p'MMM 



D>e|F^ dji [] KEIMIMER 



7293- 


Ei 10 


2104 ; 

2110 imi 


INC tXlL 


7295- 


DO 02 


2120 


BNE CMPX 


7297- 


E6 11 


2130 


INC tXlH 


7299- 


AS 10 


2140 CHPI 


LDA fXlL 


729B- 


C5 16 


2150 


CNP IX2L 


729D- 


DO 04 


2160 


BNE INCXE 


729F- 


AS 11 


2170 


LDA »X1H 


72fll- 


C5 17 


2180 


CNP »X2H 


72A3- 


60 


2190 INCXE 
2200 ! 


RTS 



72A4- AS IE 
72AA- 10 OC 
72AB- AS 10 
72AA- 48 
72AB- A5 11 
72AD- 48 



72AE- 
72B0- 



72B9 
72BB 
72BC 
72BE 
72BF 



E& 10 
DO 02 
72B2- E6 11 
72B4- 20 36 70 
72B7- A5 IE 
10 06 
68 

85 11 
68 

BS 10 



72C1- 18 
72C2- AS IE 
72C4- 65 ID 
72C6- 65 IE 
72C8- AS 10 
72CA- 65 IC 
72CC- 85 10 
72CE- AS 11 
72D0- 69 00 
72D2- 85 11 
72D4- 60 



72D5- AS 19 
72D7- 48 
72DB- AS IB 
72DA- 85 19 
72DC- 68 
72DD- 85 IB 
72DF- 20 6A 71 
72E2- A9 00 
72E4- 85 IE 
72E6- 60 



72E7- 20 36 70 
72EA- 8A 
72EB- FO lA 
72ED- E6 10 
72EF- DO 02 
72FI- E6 11 
72F3- 38 
72F4- AS 19 
72F6- E9 01 
72F8- 85 19 
72FA- A5 lA 
72FC- E9 00 
72FE- 85 lA 



2201 
2202 
2203 
2204 . 
2210 PADDXl 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 PA 
2310 
2320 
2330 
2340 
2350 
2360 

2370 PAl 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 

2490 ) 

2491 rCtffijEDy veFviSfflt U ea W en berekent de stapgrootte. 

2492 : " 

2500 CHDIDY LDA iDXL 
2510 PHA 
2520 LDA fOY 

2530 STA tDXL 

2540 PLA 
2550 STA »DY 

2560 JSR DIVIDE 

2570 LDA 10 

2580 STA«TEW 
2590 RTS 

2600 i 

2601 :DHOR trekt een horizofltale lljn tussen (XI, YD 
2602 



PADDXl rondt XI af (Tractie van XI staat in TENP) en roept 
de routine PLOT aan, hierna Nordt bij de oude Hurde van U 
de stapgrootte (S let fractie Rl opgeteld. 

LDA »TENP 
BPL PA 
LDA IXIL 
PHA 

LDA fXlH 

PHA , 
INC »X1L ' 
BNE PA 
INC iXlH 
JSR PLOT 
LDA (TENP 
BPL PAi 
PLA 

STA f IIIH , > 

PLA ' 
STA till 

CLC 

LDA »TEHP 

ADC iR 

STA »TENP 

LDA »X1L • 

ADC iS 

STfl »X1L 

LDA tXlH 

ADC 10 

STA tXlH 
RTS 



{ B«-eken stapgrootte 



en 1X2, Y2). 



2610 inoR 
2620 
2630 
2640 
2650 
2660 

2670 HORA 

2680 

2690 

2700 

2710 

2720 

2730 



JSR PLOT 
TXA 

BEQ HORB 
INC »X1L 
BNE HORA 
INC *m 

SEC 

LDA }DXL 
SBC II 
STA »DXL 
LDA tDXH 
SBC 10 
STA IDXH 



REPEAT 



PL0T(XI,Y1) 



i 11 :« II * I 



I 01 :» H * I 
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7300- 


05 


19 


2740 


ORA 


»DXL 


7302- 


DO 


E3 


2750 


BNE 


DHOR 


7304- 


4C 


36 70 


2760 


JHP 


PLOT 


7307- 


AS 


19 


2770 HOKB 


LDA 


tDXL 


7309- 


4& 


lA 


2780 


LSR 


fDXH 


730B- 


6A 




2790 


RQR 


A • ^ 


730C- 


4& 


iA 

in 


2S00 


LSR 


>DXH 




6A 

on 




7010 


RDR 

nun 


A 

n 


730F- 


4A 




2820 


LSR 


A 


7310- 


85 


19 


2830 


STA 


»DXL 


731?- 


FO 


34 


2940 


BEQ 


HORD 


7314- 


A9 


cr 

r r 


7950 HQRC 

£uJv nunu 


LDA 


l$FF 


/ ^J i 0 




fl7 19 

OL 1 7 


^oau nunni 


BIT 


11982 


7319- 


30 


FB 


2870 


BHI 


HORHl 


/ >j ill 


91 

7 1 


1 w 


7RR9 • 


STA 


(ALI Y 


73111- 


AS 

n J 


tl 


7970 

LI Lv 


1 DA 


f AH 


731F- 


C9 


CF 


2930 


CHP 


fICF 


7371- 


DO 


16 


7940 

i.7 ^ V 


BNE 


INC6A 


/ 0£ J 


nJ 




7950 


IDA 

L.iin 


fAL 


7125- 


1 7 


F8 

r w 


2960 


AND 


IIFB 


7327- 


C9 


FB 


2970 


CHP 


«F8 


7329- 


DO 


OE 


2980 
2990 ! 


BNE 


INC8A 


732B- 


AD 


60 19 


3000 


LDA 


$1980 


732E- 


29 


FD 


3010 


AND 


t$FD 


7330- 


09 


01 


3020 


ORA 


tl 


7332- 


8D 


80 19 


3030 


STA 


11980 


7335- 


A9 


AF 


3050 


LDA 


tIAF 


7337- 


85 


14 


3060 


STA 


tflH 


7339- 


18 




3070 5 
3080 INCSfl 


CLC 




733A- 


A5 


13 


3090 


LDA 


fAL 


733C- 


69 


08 


3100 


ADC 


18 


733E- 


85 


13 


3110 


STA 


tAL 


7340- 


90 


02 


3120 


BCC 


INC8E 


7342- 


E& 


14 


3130 


INC 


fAH 


7344- 


C& 


19 


3135 I 
3140 InCBE 


DEC 


tDXL 


7344- 


BO 


CC 


3150 


ME 




734B- 


A5 


16 


3155 : 
3160 HORD 


m 


il2L 


734A- 


29 


07 


3170 


AND 


17 


734C- 


AA 




3180 


TAX 




734D- 


A9 


00 


3190 


LDA 


to 


734F- 


3B 




3200 


SEC 




7350- 


FD 


D3 70 


3210 


SSC 


PLOTTAB,X 


7353- 




39 70 


3220 
3221 


JHP 
.CI 


PHI 



UNTIL XI veelvoud van 8 



DX DX / S 
(DX := aantal 
NHILE DX <> 0 



bytes tussen XI en X2} 

DO 



wacht op een sync 
zet 8 puntjes Meg 
IF ADH.ADL « fCFFB...ICFFF 



THEN verMissel van bank 



schuif 8 plaatsen op 



! DX DX - 1 
} ENNHM 

I uak einde v/d lijn af 



m 0E23 41F0-S013 

4730 



7356- 
7359- 
735C- 
735E- 
7361- 
7364- 



00 06 OC 
13 19 IF 
25 2C 
32 38 3E 
44 4A 50 
56 5C 
7366- 62 68 6D 
7369- 73 78 7E 
736C- 83 89 
736E- 8F 93 98 
7371- 9D A2 A7 
7374- AC BO 
7376- B5 B9 BD 
7379- CI C5 C9 
737C- CD Dl 



4731 ;De Label SINTAB bevat de sinuscurve van 0-90 graden. 

4732 jH.b.v. dezfl tabil Mordifl dt films- en cosinuwtarden berekinii 



4740 . 
47S0 llNTAB 



4760 



4770 



4760 



4770 



.iv m mm tii $19 »if m m 



.BY 132 »3e f3E «44 $4A $50 $56 $5C 



.lY ii2 m m tn m mm m^^' 



.BY $8F $93 $98 $9D $A2 $A7 $AC $B0 



.BY IBS lH tBB ^l ICi 1(9 ICB »D1 



e^Ei 5 a S 



737E- 
7381- 
7384- 
73Bi- 
7389- 
738C- 
738E- 
7391- 
73W- 



D4 DB DB 
DE El E4 
E7 E9 
EC EE FO 
F2 F4 Fi 
F8 F9 
FA FB FC 
FD FE FE 
FF FF FF 



4810 



,BV m m m m m m w m 



• BY *EC lEE $F0 $F2 IF* ^6 IFB IF9 



.BY m m m m m m m m m 



M m 

.DI DIVI 
.01 DIVIL 
.DI DIVRL 
.DI AL 
.DI 111 
.DI XiH 



i Iste hoek voor de gonio-functits 

; 2de hoek voor de arc-functie 

; accuiulatorl mm HULTIPLY 

; accuiulator2 voor HULTIPLY 

; scratch-geheugen 

; prodiiki v«i FACj en FAC2 



4830 : 
4840 Fl 
4850 F2 
4160 FAUN 
4fl70 FACIL 
48S0 FAC2 

4S90 mm 

IW PRL 
4910 m 
4920 i 

4930 ;SIN(Fl) 

4940 INPUT t Fl t« tN«Xft.40 

49S0 OUTPUT 1 im ■^y wmwu m 

4%0 fTig -> 25SlSrH(Fl) Slffll (»00-* IFF*-) 

4961 i 

4962 jVoorbeeld: 

4963 iStel de hoek v/d geiienste sinus is 14.1 graden, 

4964 " — •■ ■ 
4965 
4966 
4967 
4968 
4970 



dan SINF aanroeoen eet Fl = 14.1/1.41 * 10 'Mh. 
Y-reg,ACCU := 255»SIN(14.1) = f003E • 62 

Voor 255fSIN(360-14.1) geldt: 

Y-ref,ACCU i« IFFSE = -62 ' ' 



7397- 


AO 


00 


49B0 


SINF 


LDY to 


1 SI6N i' 100 


7399- 


A5 


20 


4990 




LDA »F1 


739B- 


10 


04 


5000 


SINFl 


BPL SINF2 


; IF Fl > 180 graden THEN 


739D- 


29 


7F 


5010 




AND t$7F 


; Fl := Fl - 180 graden 


739F- 


AO 


FF 


5020 




LDY ItFF 


; SI6N := $FF 


73A1- 


C9 


41 


5030 


SINF2 


CMP 1*41 


; IF Ft > 90 graden THEN 


73A3- 


30 


05 


5040 




BHl SINF3 


; BEGIN 


73A5- 


49 


FF 


5050 




EOR IJFF 


; draai de 


73fl7- 


18 




5060 




CLC : 
ADC 1181 


tatel Mf 


73ft8- 


69 


81 


5070 




; END 


73flA- 


AA 




50B0 


SINF3 


TAX 




73AB- 


BD 


56 73 


5090 




LDA SINTAB.X ACCU 2SS*SIN(Fn 


73AE- 


60 




5100 
5110 




MS 










5120 


jcOStFl) 


m SIHIFimgraden) 


73AF- 


AO 


00 


5130 
5140 


iosF 


LDY to 




73B1- 


A5 


20 


5150 




LDA *F1 




73B3- 


18 




5160 




CLC 




73B4- 


69 


40 


5170 




ADC t$40 




73B6- 


4C 


91 73 


5180 




JHP SINFl 





! . V.i 

■■:6 ■6 



-OCf' 



73B9- 


A9 


00 


73BB- 


85 


13 


73BD- 


B5 


10 


73BF- 


85 


11 


73C1- 


85 


IB 


73C3- 


A2 


08 


73C5- 


46 


19 


73C7- 


90 


OD 


73C9- 


IB 





5190 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5210 
5220 
5230 HUL 
5240 
5250 
5260 
5270 
5280 

5290 HULl 

5300 

5310 



Hulttflyt 



INPUT 



FACl«,f«:4i 
FflC2 

Y-reg (is 5I6N, positief iniiilRNy«0>) 
OUTPUT: PRH,PRL (Lno's coipleaent) 

PRH,PRL != SI6N » (FAC1H,FAC1L « FAC2) / 256 



LDA to 
STA »PRSCR 
STA *PRL 
STA iPRH 
STA IFACIH 
LDX t8 
LSR *FAC2 
BCC WJL2 

ac { 



PRSCR !» 0 
PR i- 0 



FACIH : 
I :» fl 
REPEAT 



^ ' THIN 
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73CA- fl5 IF 

73CC- 65 13 

73CE- 85 13 

73D0- A5 IB 

73D2- 65 10 

73D4- 85 10 

73D6- 06 IF 

73DB- 26 IB 
73Dfl- Cfl 

73DB- DO E8 



73DD- CO 00 
73DF- FO lA 
73EI- fl5 13 
73E3- 49 FF 
73E5- 85 13 
73E7- fl5 10 
73E9- 49 FF 
73EB- 85 10 
73ED- fi9 FF 
73EF- 85 n 
73F1- E6 13 
73F3- DO 06 
73F5- E6 10 
73F7- DO 02 
73F9- E6 11 
73FI- 60 



73FC- A9 00 
73FE- 85 20 
7400- «S 21 



7402- A5 ID 
7404- 85 19 
7406- 20 97 73 

7409- 85 IF 
740B- 46 IF 
740D- 46 IF 

- - 740F- 38 

7410- E5 IF 
7412- 46 IF 
7414- 46 IF 
7416- 38 

' * • 7417- E5 IF 



5320 
5330 
5340 
5350 
5360 
5370 

5380 NUtJ 
5390 
5400 
5410 
5420 ; 

5450 jHaak tMO 

5452 ; 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 HULE 
5620 
5630 
5640 
5641 
5642 
5643 
5644 
5650 

5660 i ^ 
5670 tlVM 
5680 
5690 
5700 
5710 
5711 
5712 
5713 
5714 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 



LDA »FAC1L 
ADC fPRSCR 
STA »PRSCR 
LDA fFAClH 
ADC »PRL 
STA »PRL 
ASL tFAClL 
ROL tFAClH 
DEK ; 
BNE nULl 

s coipleient 

CPY too 
BEB HULE 
LDA fPRSCR 
EQR IIFF 
STA »PRSCR 
LDA »PRL 
EOR HFF 
STA iPRL 
LDA IIFF 
STA tPRH 
INC ♦PRSCR 
BNE NULE 
INC »PRL 
BNE MULE 
INC «PRH 
RTS 



BEGIN 

PRL,PRSCR:=PRL,PRSCR+FAC1 

m' -vjj 



END 

FflCt !« rACt > 2 



1( ;= X - 
UNTIL X=0 



CIRCLE: 

Plot een cirkel op het schen let straal R en 
■iddelpunt X2,Y2. 



LDA to 
STA »F1 
8fft fF2 



>j - 



ARCt 



■iddelpunt x!,Y^ 
INPUT: X2L,X2H Y2 R Fl F2 



schen let straal R en 
van hoek Ft tot hoek F2. 



ft- 



Bebruikte procedure: 

it-' U^tlt* 

REPEAT 

X1H,X1L := X2H,X2L + R»COSIF|} „ . 
Yl != Y2 - R»K»SIN(F1) 
{ K is een resolutie-korrtkMtlietor } 

{ K=177/256 ' - >:* ..) 

PL0T(X1,Y1) 

Fl := Fl + I .'7m)i^^' 



CI 



'<3 !. l.tX 



St. 
91.! 



5740 ifiCf** 



•053 it 'VI.K 



5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 



w .0 



LDA »R 
STA »FAC2 
JSR SINE 
STA »FAC1L 
LSR ♦FACIL 
LSR tFAClL 
SEC 

SBC IFACIL 
LSR »FAC1L 
LSR tFAClL 
SEC 

SBC »FAC1L 




FACl 
A : = 
FACl 



!= 63»SIN(F1) 
192«SIN(F1) 
:= ISiSIN(Fl) 



0 
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7419- 


85 IF 


5B60 


STA tFAClL 


1 


FACl := i77«SIN(Fll 


741B- 


20 B9 73 


5870 


JSR nuL 


■ 


PR != FACl » FAC2 / 256 


741E- 


A5 10 


5880 


LDA »PRL 






7420- 


85 12 


5890 
5900 J 


STA »Y1 


i 


Yl := Ri(i77/256I*S1N(F1) 


7422- 


fl5 ID 


5910 


LDA fR 






7424- 


85 19 


5920 


STA »FfiC2 


i 


fMi !« 8 


7426- 


20 AF 73 


5930 


JSR COSF 




7429- 


85 IF 


5940 


STA »FAC1L 


1 


FACl ;= 255»C0S(F1) 


742B- 


20 B9 73 


5950 


JSR HUL 


! 


PR != FACl i FAC2 / 256 


742E- 


IB 


5970 


CLC 






742F- 


fi5 10 


5980 


LDA tPRL 


• 




7431- 


65 16 


5990 


ADC »X2L 




7433- 


85 10 


6000 


STA »nL 






7435- 


fl5 11 


6010 


LDA fPRH 






7437- 


65 17 


6020 


ADC itlH 






7439- 


85 11 


6030 


STA *X1H 

win * n « f 1 






743B- 


38 


6040 


SEC 






743C- 


A5 IB 


6050 


LDA tY2 


• 

1 


VI :« n - R*(177/256>«SI 


743E- 


E5 12 


6060 


SBC tYl 




7440- 


BS 12 


6070 
6080 ; 


STA (yi 






7442- 


20 36 70 


6090 


JSR PLOT 


! 


PLOTin.Yl) 


7445- 


E6 20 


6100 


INC tfl 


i 


Fl := Fl t 1 


7447- 


A5 20 


6110 


LDA »F1 






7449- 


C5 21 


6120 


CMP ♦F2 






744B- 


DO B5 


6130 


BNE ARC 


t UNTIL F1=F2 


7440- 


60 


6140 


RTS 
.EN 







« 

« 
* 
« 
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PRCKRAMm "COMPETITIESTANDEN" HANDBALCOIIPiTITIE 

een Basic-prqgranma 
voer de Elektuur JUNIOttisfilputffif 
Met 2 caseettviwconfers cii mm 

teletype printer 



Door I Gerard Keet 



« 
# 

♦ 
♦ 

■.JLJULJLJULJfcJLJLJLJLJL 
rWTrwwTrirWwWwWlr 



Het prograMM "Competitieetatlieti*' taMft. gezien de handbalcoepetitie die lie^wt 
ult een val4- en zaalgedeelfll. iK iMigeUjklwid.e«i voor een van bei#i l# iif 
em tiipMn tlirl elnde %• mktjtmm of^ Mi Si j«, Metlte kaepioenskatiMMi 



Basic start op 4@@|I0* 
Een klaMttlMMiMiivig MtMit 




teams (12). 
eamnaam. 



H«t tienedigde geheugen i« 1^ tC HMMff^'l^ize is 20.000. 

Voor zaal en veld gelden resp. l^i im'li'VeaM per klasse. 

uit 5 pMltlem bes|«Mi. 
De ft op r«fel W&IQ « max. 36 teams. 
De B « aantal gereserveerde plfAtt^ 

De C • besehikbaar zijn 12 ptwitive 

De D • gereMfveei<tfe voor klapw 

De E ■ gereserveetpd VttW liirastrijden, §mm*i 

6esp. Ptn. Voor Tegen 

2 pes 2 pos 3 pos 3 pos 
De F op regel 20020 - benodigde ruimte per klasse. 
W en P zijn resp. welpen en pupillen. 

Jeugd wordt aangeduid met JE. dit daar bij onze cMpirtitie giildt dat, indien in 
deze categorie gelijk geeindigd, beide kampioen! 
AT badtiidf > a«ntal teams 

Het programma zal woMtam vervolgd met een Printroutine voor teletype 110 tmi4 m 
het programma ODIN SPIPtTEAM. De laatste is sen aardige routine die laat; itm 
Nelk team het beste gepresteerd heeft. Een en ander in een volgende editi#. 

miff programma* s zijn ontMikkeld on dff hAndtMlverenlging ODIN in Heemskerk van 
diaiwl te zijn. Zij draaien reeds tmee Sfftzofram zonder problpMnri op een JUNIOR- 




rtek-Basic met een termitial van M)D's. De Basle lijkt wel nat 
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Ei 5 D S 



ke;mme:r 



Inhoud: 1 ProctraRHastruktuur 

S Variabelen en konstanten 

3 Atn^a.BKfn ()ri^graaMa aan specifieke situatxe 

4 C«lirul(eriti«nalei di ng 



Pragn 



imB-fcnuk-buur 



Het hoof dpragranmablok is geprogranBeef^«f'lA de regelntr«ftttr« ti9#04--SlSM# . 
Vanuit d.t t prnqrammablok wardt naar subroutines 9esprori{^«n op basis van d@ keut« van 
een bepaalde funktie. 



Keuje ':Fan_k.ti« 

i ' '"^taftlen in^ei'en 
cl Klasse toevoepen 

3 Klas3@ Mi.jzicien 

4 Kletsse v/erwijderen 

5 Uit.slagen inuceren 
&. -Stariden printe^n 

7 Standen wegschri juen 

8 tni«ialis@ren standen 



■| ' I rf 1 h B f 



't' 'IPO. 



IQOOO 
17000' 
16C0C 
15000- 
14000 
13000' 
19000 
50Q0- 



-180^0 
.17390 
-16240 
15090 
-14650 
-13280 
-19090 
■ 5090 



Funktie 3 "Klasse wijzigen" pres@nteert als enige funktie waer een keuzescherm , op 
b«Bis waarvan weer naar subroutines pesprongen wordt, 

Keuze Wi jzigf unk tie RegelnummerB 



1 Klassenusiier 

2 Teaa toevoegen 

3 Tea* uerwijderen 

4 Teas wijziffn 



3100-3190 
8000-0090 
7006-7090 
6000-6150 



Uanuit funktie 6 "Standen printen" kan , als de stand op het scheri staat, desgewenst 
kampiaensinf ormatie opqeuraagd worden. Het progranmadcel dat. dit uerzorgt is ook een 
subroutine en geprogramseerd in de regelnusaers 30000-30450 

De overipe suiiroutines zijn routines die vaniiit tferschillende plaataen aanferoepfirt 
warden . 



Subroutine 



Ragelnuiiaers 



Inuoeren teaanaas 
Invoeren kiassenaaa 



3000 -3090 
3100-3190 
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M. VaLfi.mtKmlLmn «n fconS'batnliCin 



□ m niet, te snel in c|ehei.(gen r i.i i m tepr cblemen te kcmen, zijn korte namen gekozen. Dit 
maakt, het programnia minder gaed leesbaar . Hierbij een .;erklaring wan de qebruikte 



C 
D 
E 



F 

Hi 

S'«{*» 
S i X , y ) 
Git ,K« .P« . 
U$ , Z* 

H , I , J , l< , L 
R , T , U , X 
AT 
SKt 

Kt. 
I- 1 it 
M 

m 



Waarde 

36 

12 
12 
5 

10 



34559 
strinquar 

u a I- 

strinquar 

strinquar 

u B. r 

uar 

war 

uar 

uar 

str i nquar 
uar 

boolean uar 
boalean uar 



Onschr i juing 

Aantal klassen waarvoor ruinte in de buffer f ereceli'veerd 
is . 

Aantal teams per klasse (maxiiiuiii! . 

1... I? i i q t e van d e ■(, e> a ni n a a in ; m a x :i m li m ) . 
Lengte uan de klassenaam ( wax iwum ) . 

Aantal posities nodiq woor de stand wan 1 tean , nl . 2 

voor "qespseld", 2 uoor "punten", 3 waol" "doelpunten 
uoor" en 3 woor "doelpunten teqen". 
^enodiqcle ruimte per klasB© in de buffer. 
Beq i n a d r e s b ■■ ■■ f t e r ; * 6 0 0 0 ) 
La|,,1|5te adres buffer 

Ts#el vraor de teamnaiiten uan de te vePMerfeen kliiSBe. 
Tabcl uoor de standen uan de te verwerken klass^. 
Lokale hulpuar iabeien . ' 
Lokale hulpuarlabelen . ^ 

I. D k a 1 e h i.i 1 p w a r i a b e 1 e i i . 
Lokale hulpuar iabelen . 

Aantal teans wan de te \/erwerken klasse, 

I... ci k a .1. «) >/ariabele '.LV) uoor het uasthouden uan de 
oorspronkelijke waarde uan KL (SaueKL). 
Beqinadres uan de te uerwerken klasse in de buffer. 
Hulpueld voor lezen / sr.hr i jyen van/naar buffer. 
Aantal te spelen wedstrijden per team. 

Giob'ai;e'^ti^fp^«riafaele (GV) o'ni'in subroutine te fterhennen 

of he* cm een nieuwe klasse gaat . 

GV Dm uanuit een subroutine de waarde "niet qeuonden" 







ever te 


draqen . 




jf: 


boolean uar 


LV 


■ a 0 1" 


h e r k « n n i n q 


uan " leuqd " 


KA 


boolean uar 


LV 


woor 


uastleggen 


of e«5n t,eam kampioen is. 


m 


bQ«l«rRn var 


LW 


uoor 


vastieqqen 


of een team niet kampioen is 


@B 


war 


LV 


uoor 


bi jhouden 


'qespecid beste". 


PB 


uar 


LV 


y a 0 r 


bi.ihouden 


'punten beste". 


TS* 


strinquar 


LV 


uoor 


uastleggen 


eerstuolqende teqens tander . 


DD 


uar 


LV 


uoor 


uast leqqi-sn 


plaats ODIN in tabel . 


GT 


uar 


LV 


uoor 


b i j h c u d e n 


"gespeeld tegenstander" . 


lot 


\mF 


LV 


uoor 


bi jhouden 


'punten tegenstander" . 



Aa.npa.ssen progr'ainna aan specx-Fxeke sxtrua-bxca 



Er is een goede kans dat er uoor scmmige ti50£~ers ruimtegebrek onstaat tijdens het 
werken pet het proqraRHa. Bewaar in dat geual als docuRentatie een listing die alle 
renmrks bevat, aaar yerwijder ze uit het progranna waar Je wee werkt. 
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Ooor de nodulaire opbouw uan het proqraKBa is het aok heel qaed mogelijk funkties 
(subr»l3U^ift«i) aplift programneren , bu. #««' printprogranaa. Je ban dan iet itet 
hoof dprograana de standen inlezen, waapna Je het printprograMaa (incl. kanpidSiiSinf 0) 
laadt en de standen kan printen. 

Het progpamina. is speciaal geschrewen woor handbal verenigi ng ODIN uit Heemskerfc. 
Specifiehe kenaerken woor deze uereniging/ kompetitie zijn: 

- Er warden niniiiaal twaalf wedstrijden per koapetitie gespeeld, zonodig door 
anderhalue oF di.ibbele kompetitie. 

- Bij jeugd <pupillen=P en welperi«W) zijn bij gelljk eindigen op de eerste plaats 
van eeeftfere teaits deze alle ksepioen. 

E .e a is yoor de standen niet wan belang, maar wel uoor de kampicenil'ftforiiiatie . 
1. Het aantal wedstrijden per koapetitie per team wordt qeregeld in regelnuaaer 
103D0 Zonodig mom^m regel dus aanqepast warden. 

, . : - - . , t . (J ; ' ■ . 

1 ■ 

g. Vanrelf gprekend noet overal '=ODIN'' wefwantien Worden donr de naam uan de wereniginci 
waaruoor de standen bijgehoiiden worden. 

3. Op regel 30010 wordt bepaald of er sprake is wan "jeugd", t.b.u. ds qenoemde 
uitzonderingssituatie . Hier-toe wordt #e tw&i»0^ po'i!t%ie Xian lfe klasisenaam afge- 
uraaqd, die in ons qeual de cateqorieaanduidinq beuat . Als er in louw aeual tjeen 
sprake is v/an een dergelijke uitzondering dan kan op regel 30010 het tweede 
statement weggelaten wforden . en verder de regels 90160, 30170, 30300-S0330 en 
30370-30400, 

Als je de uitzondering wilt laten zitten woor eventueel toekomgtig gebruik, dan 
kan j«-he» uitBChakelen dear het tweede statement op reqel 30010 t© wijxlqen in 
'«dE»FALSE". In verwer ietngil jd tliakt dit nauwelijks uit, wel in geheugenruimte- 
bes 1 ag . 

4. De benodigde geheugenruimte vrjcr de buffer is bijna J.OK In ons gei/al 
begirit de buffer op adres 24576 ««60001:, we hebben nl . 3AK beschikbaar. Ue starten 
Basic op met memofg-site-aoCOO. NBglll atfipdig dus, maar wij kennen in dit geval 
geen rui»teproblem#«: AIS j# ■daai- ^li^f-'last uan hebt, dan kan je e.e. a. wat 
'ra*w»lt«Mr4fler doen . .. >. -.i . 

Vb:Al« J«'S4K geheugenrulfcte hebt'fMSfa) 'tfitn Ksn ji' de beginwijzer van de buffer 
op 24575-9684+1 = 14092 zetf.en. Dus AI = 1489a en je kan dan Basic apstarten met 
«e«ori|-Blze=14891 . Vergeet niet in de routine "Standen waqschr i juen" de adres- 
sen atan te passen, in dit geval "POKE 6768, 44: POKE 6769 , 148 : POKE 6770 , 235 : POKE 
6771,95", aaak LA=24575 . 



4.1 OgiStarten Basic . 

Start op de gefepaifceit jk« manier yoer op de vraag "memory-size" "20000" in, 

Vraagt het s^steem hier niet om, geef dan na "OK" het commando "clear ,20000" . 

4.S LMe^n profrwiaa 

Laad het programma op de gebruikeli jke wijze en start (met RUN). 
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4.3 Uerken net het pracfranna 

Jilt. rM«-«seQ«i««ttjcla vpffjBlii,J^ii*i esch^ fe^c.hpijvin«. uo2<ft #it- ■; '.s 

fceuzescherm Derhalue wordt aqhtereenvolperts beschreuen: 
1. Standen inlezen 

5. Klai«« t»ft«/#e|te.n 
3. Klasse wijzigen 

A. Klasse uerwijderen 
5-. . Of .IcXsfvn.. 4:tiMt»«'ren 

6. Standen printen 

7. Standen wegschrijuen 
9. InlMftliteren standen 
9.. StO|ipi# - ,-, , , , 

(Sil* «#or m ««i**ttt.- ««*F it* ««*. |!»fetr«»«a gewerkt wflrd*-, »iB-r»t d.« b«#^©r 

qei'ni Vtallseerd worden met funk tie S, daarna met funktie 2 de klaBseH inbreng@n. 
Pas dalifna kunnen uitslagen ingeuoerd worden, enz. 

Standen in|«jen 

Zor^ dat de "leesrecorder" klaar staat aet het gdede bandje en op de gsede 

plaats. Na ksuze :l worden dan de standen in de k.o«f!|it«r incielezen. Als dit 
gebeurd is uerschi jnt het keu zeschenn weer . 

4'.3.£ Kl.ttc#e t aAV'def en 

§«ze funktie noet geforuikt warden ale uoor de aanuang uan een nieuwe koapeti- 

tie, de nieuwe Idassen met hi.in teams ingeuoerd apetan worsen, Zqf 9 wel dat er 
eerst geSnitialiseerd is (keuze 8). 

Ma keuze S gedaan te hebben , kan de koaputer met de nelding "Geen ruinte voor 

nieuwe klasse" komen. Dit betekent dat alTe 36 p.laatston al qebruikt zi,.in, of 
dat er niet geSnitialiseerd is. Het keuzemenu uerschijnt weer. 
IB alles in orde dttti m;aA§.% de koaputer an een klassenuaaep . ' Als dit numaer al 
beiitaat , dan wordt dat Id en v e r s c h i j n t het k e u z e in e n u . 

Beslaat de klasse nog ntel dan moat het aantal teams uan die klasse ingeuoerd 
'iffrfffii, fev'olfd':' dmm d«' itnMB,' ffn {|«."t.«««fr>,.- AlS' dit teteu (»4 ' i s , kan een 
.V^l^«nde klasse toegevoegd woiNleie.^ le li^et dan uerschijnt het keuzemenu weer. 

4.3.3 Klasse wijzigen 

Daze funktie hoeft, als alles altijd regulier verloopt, niet gebruikt te worden 
(systeenbewakiniBfunktie) . Er zijn echter situaties waarin iets aanqepaat en/of 
gerepareerd moet worden, b.u. als Je achteraf tot de ontdekking komt dat je 
fuute uitslagen ingeuoerd hefat. Sams moet haluerwege de kompetitie een team 
verwiiderd warden, ondat dat teruggetrokken wordt, of JulSt foeg#u##fd warden . 
Voor aanpassinaen most keuze 3 inqetoetst worden. Na inuoeren uan de klassenaan 
(-numroer) uerschijnt het "keuzescherm wijzigen", waar gekozen kan worden uit: 



1 . KlaaBsenunaer 

2. Team tneuoeqen 

3. Team werwijderen 

4. Teaa wijzigen 

5. Stop 
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Nk een uerwerkte wijziging wordt gewraagd of een andere klasse gewijzigd noet 
worden. Na "J" itoet een nivuwe klaBsenaaM opfiegevert worden, na. "N" niet. In 
beide geuallen uerschijnt "keu?:escheriii wi jziqen" weer . , . . , 

P'as na "5 Stop" uerschijnt het. ( hoo f d- ) keuzemeriu weer. 

4, S.S.I KlassenuRM^t . ^ ., ..j^t ^-^-j. . j'^.-- rrfc'Tf^r' -i ,•■=>(.•• 



Met keuze 1 kan de klassenaam gewijzigd worden. - 

4.3.3.2 Tea» toewoegen i • •: ^'r 

- iHet ki)«ree 2^tlS#s«eff''tCi» can d« klaf»«i li«iiitfii##''iiiiordcn. VAXa'i^ 
'Vea«« in de klasse zi«%«nv "^loaK -d# »e'|:dffll§' "fi«f)''^#ii«# vmf'MMSi'-tMm'*. 

•■1.3.3.3 Team uerwijderen 

Met keuze 3 kan een team uit de klasse verwijderd woi'den. Als het team niet in 
d« kla«f*'woarlfoif«. ■i9«*«df=ii*'>f*i«li.^'''' '• '>"' 

4.3.3.4 Team wijzigen > " = ^ • •" ' 'i*-' " '' ' 

■Hi*PBee kunnen de resultaten van een team gewijzigd worden. Na inuoeren uan de 
teaanaam moet resp . gespeelde wadstrijden, behaalde punten, doclpiinten qescaord 
«n< «et«nd»elpunien ingevoerd oord^n. Atsrft«% fiiil'i iHtit 'tli '§k Ifiise voarkont 

4.3.4 Klasse uerwijderen 

Deze funktie dient am een hele klasse uit de standen te uerwijderen. Dit kan 

getrokken wordt, waardoor de klasse uoor Jou niet meer uan belanc) is. 
Omdat dit een nagal rigoureuze aktiv/iteit is, wordt na inuoeren uan de 

MB**.' «1» J# dart 'M* irtwult qife^eart h#« 6ak ^dnft«#ri»«^^^ - ' 



4.S.5 Uitslagen invoeren 



Met deze funktie moeten steeds de uitslagen wan de gespeelde wedstrijden 
incievoerd worden. Na de klasse inqeuoerd te h#f»#en , aoeten achter6^«<>'niMlQens 
thuisspelende team, het bezoekende team, het aantal doelpunten woor en het 
aantal doelpunten tefen iriigeuoerd warden. Als bij het invoeren "thuis" of "i.iit" 
een fmt ''''f4Ma*#l "■mcH '^mmHuti - <r'#«u#i«$i- iRt«iiit:fei ^^^^In-itief^^i van 

een Spnieuw beqonnen worden met inwoeipn '* J ' 

B.U.: J« wilt inuoeren "Thuis; <FC Knudde 13>" en je woert in "<SC Knudde..." 
en constateert dan dat het niet qoed is. Moer dan een "*" in op de plaats waar 

je gcblewcn bent, geuolgd door <return> :"<5C K niidde* > < retu r n > " . De computer 
uraagt dan am opnieuw "Thuis" in te uoeren. Deze mogelijkheid woorkomt dat je 
in dit soort gevallen een heel stuk aoet "backspacen" . 

De computer uoert een aantal controles op de inqeuoerde ciegeuens uit en meldt 
het als er iets nis is. Als alles goed beuonden wordt, wordt de uitslag 
geaccepteerd en kan de volgende uitslag van deze klasse ingevoerd warden. 
Als uan alle klassen de uitslagen zijn ingevoerd moet bij "klasse" een "*" 
ingevoerd worden. Het keuzewenu uerschijnt dan weer. 
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!' ' A.I . .•vf'S'.'j iia ./wp'joqo (SBjsri&fc: f -■ I " • ■ .• ■ .*«^ m-w 

4,3.4 Standen printen i^-s" ''•ns.Ejisi.iw' a -vv. . . r . .1,1..- 

Met keuze 6 kan Je de standen op het beeldschers bekijken. Na d# klasse 

opqeqev/en te hebben, zoekt de coinput6>r deze op, qaat de stand ■formeren en 
presenteert deze op het scherm. Je krijgt dan de wraag of je wel of geen 
kaapioensiitffraatie wenst. M<S Je dat niei wilt geef je "N" op en koat de vraag 
of je nog een klasse wilt zien. Bij "N" uerschijnt het keuzeBchera, bij "J" 
wordt weer oa een klasse gevraagd, enz. ,„ r, , 1 

Als je wel kaapioensinf ornatie wilt (dit is pas zineol tegen hmt aind van de 
; fcompe f.i tie ) dan geef je "J" op en wurdt oin de uolgende fegenstander wan je 
varenigingsteup geuraagd. Oe conputer neldt dan hoe de kaipioenskansen van dit 
lean liggen, waarrta gewaafd wordt of je nog een klasse wilt zien, enz. 

A .3_;7 Standen wejschrijuen 

Het funktie 7 kan je de bijqewerkte standen weer naar de band schrijueHi Zorg 

dat de opnanerecorder klaar staat net de goede band op de goede plaats. 

©feflk er ook aan een "back-up" te naken, het zou zonde zijn als later door een 

dwarse bit een hoop inv/oerweck ouerqedaan moet worden. 

Als de standen wi^ggeschreyen zijn, verscfiijnt het keuzescherm weer. Je kan dan 
I gmottn verdar gaati aat printan etc. want de standen staan nog steeds in de 

baffer. Het is dan ock aan te beuelen direkt na het invoeren wan de uitslagen 
de standen weg te schrijwen. Mocht er dan iets ais gaan dan staan die slvast 
veilig op de band. 

4.3,8 Ini tialiseren standen 

M«| 4<f3Ee funktie zorg je dat de cieheugenbuf fer "leeg" g^aaakt wordt. Dit is 
nodig als je uoor aanwang van een nieuwe kompetitie weer nieuwe klassen met 
teans noet Invoeren. Verder nooit gebruiken, want voor je het weet ben je je 
standen kwijt Dat is natuu r 1 i ,1 k riiet er'q als de bijgewerkte standen al op de 
band staan, alhoewel het toch hinderlijk is als je ze weer opnieuw aqat 
intezen . 

Offl uergissingen uit te sluitfMi wraagt de koMputer eerst nog of je, zekar weet 
dat er gel'nitialiseerd moet warden. 



4,3.9 Stpppen 



At* je er genoeg van hebt kies je "9", je zit dan weer in "BASIC". 

Kom je tnt de ontdekking dat je toch nog verder wilt werkeoj dan gee f "Run", 
Je hoeft niet eerst de standen in te laien Mant de bi,if far 4fS nog ateedt 
untawi jzigd., . . , . 



. o o — e» «j ■• 
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T H S C R^f feil vfej^^j.i D R ■ ^. - 



Oe line-editor van U. Rxasdale vdar fiibMPQRTH is niet era 
Dlezieria in het oebruikf reden om man €ilff 'Screen-edit of 
te aaan bouwen. Ik tMb fAtiriiik aemaakt van mijn oublikatie 
met'woorden voor curvorDS^tO^ino en simoele grafische routi* 
nes voor de Junior met VDU-kaart. In deze vorm is de editor 
geschikt voor fia-systemen met diskbuffers kleiner dan IK. 
iMMtot :4m diskbuffers elk een tussenruimte hebben van 4 bvtes 
fmb ik wwn extra buffer aemaakt van IK, waarin tekst wordt 
aemaniouleerd. Via de constante TEMP ItM^M '^k^m-fsm olaatp. 
In de laatste screen wordt aanaegevfliK'.lVM^ir*i^-«iHtor een^ 
voudig geschikt kunt maken voof svstemen met diskbuffers van 
IK. 
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FORTH DEFINITICWS mt^-r'-- '-r - ^ 

( \ << >> ; commentaar na \ i.o. v. 

\ IN S C/L / 1+ C/L » IN » ; IMMEDIATE 
WtCRE en COPY komen uit de RaQsdslM»Mlit0r 

WHERE << block# offset >> ^-^'-"- t 

aebruiken na error bii comoileren van screens 
WHERE DUP B/SCR / DUP SCR ! . " SCR » " DECIMAL . SWAP C/L /MOD 
C/L » ROT BLOCK + CR C/L TYPE CR-.HESe.e«-» «R«^ SE 
EMIT [COMPILED QUIT : i • 

COPY << van-scr# naar-scr# >> RC <i^c' 3j . 

COPY B/SCR « OFFSET fi + SWAP B/SCR * B^&m * mmiP DO DUP 

FORTH I BLOCK 2 - ! 1+ UPDATE LOOP DfKPCII^BSi . ; > ..w .'tk-. -i 

<CMOVE << van naar #byteB >> . '> v ^( - -- ; ;• 3KI. - 

kan i.t.VvCMOVE ook blokken ov»f^«M»mJ vooi'uit schui^ 3v»T 
<CMOVE -DUP IF > R R + 1 - SWAP 1 mm OVER + DO I G» OVf R C? 
1 - -1 +L0OP DROP ELSE DROP DROP ENDIF ; " 
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Gebruik 
CASE 
OF 



is oemaakt van de CASE-konsti»utitl« i^ftn Charles Eak#f 
?COMP CSP e !CSP 4 1 IMMEDIATE ' '-"^^'^ J ^ 

4 ?PAIRS COMPILE OV^R COMPILE = COMPIB£HpiRAlCH' 
HERE 0 ^ COMPILE DROP 5 ; IMMEDIATE '?9T^-- " 

5 ?PAIRfe COMPILE BRANCH HERE 0 , SWAP 2 
[COMPILE] ENDIF 4 : IMMEDIATE 

EMWaiSE 4 ?PAIRS COMPILE DROP BEGIN SP© CSP 6=0= WHILE 2 
[COMPILE] ENDIF REPEAT CSP ! ; IMMEDIATE 
B \ Soecifieke editorwoordet^ komen in EDIT i ).. 

9 VOCABULARY EDIT IMMEDIATE EDIT DEFINITIONS DECIMAL'^ - 

10 512 CONSTANT TEMP \ de extra buffer beaint hier oo *O2O0 

11 0 VARIABLE CUR \ cursoroosit ie t.o.v. TEMP 

12 0 VARIABLE IliKERT^-'UA;- ifisert-mode =1 

13 \ DISPL-I-ON << >> ; disolav insert-on 

14 » DI®>L-I-ON 63 1 ICl^g." INgERT-ON" 

15 10 1 62»H^ANa.I ; —> 
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DISPL-I-OFF << >> ; disolav soaties ' 

DISPL-I-OFF 3 0 DO 62 I ! CURSOR 14 t " 

CUR> CHAR-LINE << char* line# ">> - ■ ' 

zet de cursorDositie om naar H-V'm^nim ms^ dt ICfBi^. 
CUR> CHAR-LINE CUR 9 C/L /MOD ; ' ' " ^" • 

.CUR << >> 1 disiirll¥ cursor 

.CUR CUR>CHAR-LINE 5 + >R 9 + R> !CURSOR ; 
DISPL-LINE << Uim» — - >> ; #ii«B4«y U^ie 
9 OVER S ♦ ICURSOR " '^ 

C/L # TEMP ♦ C/L TYPE ; 

<< 1 ine# g'iNir 1 >> ; disolav screen vanaf linei 
16 SWAP m I DI^-LINE LOOP ; 

— >> ; haal screen naar diskbuffer 
en naar extra buffer 
BET-SCR SCR S 16 0 DO I OVER (LINE) TEMP I C/L » + SWAP 

CMOVE LCM)P DROP : — > 



DISPL-LINE 

DISPL-SCR 
DISPL-SCR 
QET-SCR < < 
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SCR # B2 
0 \ SETUP 
t SETUP 



1 
2 
5 
4 
5 
& 
7 
B 
9 



<< >> , _ 

CLS ( clear screen ) 10 1 
."Forth Screen 
37 1 8 0 RECTANSLE 



disDlav scherm-Iav-out editor 
E d i t 0 

W^* V - V.I 



^■a^€' .i LOOP \ disDlay 

64 16 8 4 RECTfiNGLE 0 INSERT ! * 
0 22 .'CURSOR ; \ vanaf drnzm-maiiiim k»n je infor«ati# 
- , , \ kwijt oi«i»s#« 9iNit<tiiken kommando's 

10 \ nu volaen alle commando's die kui|»tWI-<ii||j^en aeaevm ^ • - 

11 \ MODE << >> ; toaale modc^iHW^olav ~ " 

12 s MODE, INSERT e..p«J»iP J^EftT ! ssr-.ja v, V t^twWlBLr- 

14 .CUR ; 

15 — > 
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HOME 
HOME 
CLEftR 
CLEftR 
LEFT 



<< 
9 5 
<< 



>> ; cursor-tiffme bi nnen 9ct9im 

! CURSOR 0 CUR ! : , . ■ ■ 
>> ; clear/disDlav screen ftn ctifsor-home 



TEMP 1024 BLANKS 0 DISPL-SCR HOME : Ji,. 

<< >> ; cursor-left binnen screen 1^:' 

LEFT CUR> CHAR-LINE DROP 0 > IF -1 CUR +! 8 EMIT ENDIF ; i'- 

RIBHT << >> ; cursor-riaht binnen screen ' 

RIGHT CUR>CHflR-LINE DROP 63 < IF 1 CUR +! 9 EMIT ENDIF ; 
UP << >> • cursor-uD binnen screen 

UP CUR>CHfiR-LINE SWOP DROP 0 > IF -64 CUR +4 11 EMIT ENDIF ; 

DOWN <{ >> ; cursor-down binnen scf»*« 

DOWN CUR>CHflR-LINE SWOP DROP 15 < IF 64 CUR +! 10 EMIT ENDIF ; 

I-LINE << >> ; voea leae reael tussen oo cursoroositii 

I-LINE CUR> CHAR-LINE SWAP DROP DUP C/L » TEMP +3iajpjDUt -C/L 

+ OVER 1024 TEMP + SUflP - <CMOVE C/L BLf 

DISPL-SCR .CUR ; r-J 
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D-LINE 



: D-LIhE 



H-LINE 
H~LINE 

R-LINE 
R-LINE 

(ERASE 
(Ef^E 



<( )> ; verwijder reael on cursorDOSitie 

CUR> CHAR-LINE SWAP DROP DUP C/L » TEMP + DUP C/L + 
SWAP OVER 1024 TEMP + SWAP - CMOVE 960 TEMP + C/L 
BLANKS DISPL-SCR .CUR ; 

(< — >> : bewaar reael oo cursoroositie ii» Pfl® 
CUR> CHAR-LINE SWAP DROP C/L » TEMP + PAD 1+ C/L> ©OP 
PAD CI CMOVE ; 

<< >> • PAD naar reael oo cursoroositie 

i*uSuaB .eifc^* mm-:-. 

+ C/L CIWVE DISPL-LINE .CUR ; '^-''^f^WT TT*^^ '■■"■■•> 

<< >> ; soaties in reael voor cursoroomitie 

CUR> CHAR-LINE SWAP DROP DUP C/L * TEMP + DUP CUR « 

ELSE DWJP DRW> DWJP ENDIF ; - ) i^O 
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ERASE) 
ERASE) 



D-CHAR 
D-CHflR 



<( )) ; soaties in reael vanaf cursoroositie 

CUR) CHAR-LINE SWAP DROP DUP CUR § TEMP + DL«P ROT 1+ 
C/L * TEMP + SWAP - BLANKS DlSPL-LIhE .CUR : 

<< >) ; verwijder karakter oo cursorD0Biti» 

CUR e TEMP + DUP 1+ SWAP CUR) CHAR-LINE SWAP DROP 

DISPL-LINE .CUR ; ^ ; ffTi^f 

! cursor naar beain voloendc 

NEXT-LIME CUR) CHAR-LINE SWAP DROP DUP 15 < IF 1* C/L 
.CUR ELSE DROP ENDIF ; 

CHAR << ascii-waarde >> ; voea karakter toe oo eursor- 

SP.Si**^ ^" schuif rest van reael oo indien insert = on 
CHAR CUR & TEMP + INSERT & IF DUP DUP 1+ CUR> CHAR-LINE S^P 
DROP 1+ C/L * TEMP + QVEB -. imm CI ELSE C! ENDIF 
CUR) CHAR-LINE ) R S3 .f W..'t MM *l) ©ffiirW 
DISPL-LINE .CUR : 
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EDIT DEFINITIONS DECIMAL \ 



i.y. n. laden tweede deel 



\ SAVE {< >> ; schriif screen naar (oseudo-) disk (-ram) 

« SfiVE SCR § B/SCR * DUP B/SCR + SWAP DO TEMP I B/SCR MOD B/BUF 
* + I BUFFER B/BUF CMOVE UPDATE LOOP FLUSH : 

\ COMMAND << >> : dit is de hoofdlooo van de editor 

: COMMAND BEGIN KEY DUP 32 < OVER 127 > OR 0= IF DUP CHAR ENDIF 
DUP 21 - WHILE CASE 
OF H-LINE ENDOF 3 OF R-LINE ENDOF 
6 OF D-CHAR ENDOF 
9 OF RIGHT ENDOF 
12 OF CLEAR ENDOF 
17 OF ERASE) 



2 
5 

a 
11 



OF D-LINE 
OF LEFT 
OF UP 
16 OF SAVE 
28 OF HOME 



ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 



ii OF I -LINE ENDOF 
7 OF <ERASE ENDOF 
10 DF DOWN ENDOF 
13 OF NEXT-LINE ENDOF 



ENDOF 22 OF MODE 



ENDOF 



ENDCASE REPEAT DROP 



OK 



SCR 
0 
1 
2 
3 
4 

■ i 
6 
7 
8 

10 

11 

12 

14 
15 



SCR # 
0 \ 
1 
2 
3 
4 
5 
6 
7 
B 
9 

10 
11 
12 \ 
13 
14 
15 
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FORTH DEFINITIONS 



Met een van beide vola«nd« eeMMBffite'ji tf«n }■ , vf|iul^,,Fj;}l|Tt4 ill 
editor starten. 



EC 



\ 
\ 

( EC 

;s 



<< scr# >) of << >> : i 

wordt de te edit en screen nit SCR 
EDIT DEPTH IF SCR ! ENDIF SETUP BEt-SCR 
0 DISPL-SCR HOME COMMAND CLS FORTH ; 

<< scr# )) of << >> ; als E 

wordt eerst schoon aemaakt 
EDIT DEPTH IF SCR f ENDIF SETUP CLEAR 
COMMAND CLS FORTH ; 



ndien de ilaM^,%,mti 
aehaald 



Maar de im^mm 



I - • • I >. . ( •« 
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Aanoassinqen voor FORTH-Bvstemen met diskbuffers van IKbvte. 

Nu 
le 

i. 

2. 
3. 



is aeen extra buffer nodiq: je kan rirfeht»tri#li(lt!ll)^itl^ in 

disftbuf fers I 1 

De variabele TEMP kan verdwi men |"* ' 

Vervana overal TEMP door PREV © i 

De definitie van SAVE wordt: ! • 
: SAVE UPDATE FLUSH : 
De definitie van GET-SCR wordt: 

* BET-SCR SCR 6 16 0 DO I OVER (LINE) DROP DROP LOOP DROP 




LU0D'SJ3M0|jAll0p'MMM 



Ei ^iiEi n iP* 



WORD PROCeSSOR PRINTER VORSXCM 

Itifeto thiiM ehangam and mtmslona of tha 'SMmon'a Mordpra- 
iWKfir V. 2.2 It Mill bm quit* aaay to writ* tha prlntara con- 
trol codM dlractly Into th« fila. 

Tha contralkaya arit optional. You can Mk* your OMn aodlfl- 

~ ">on> to mttt youf 'iM^Aoatrtf. 

Haka tlia eha^a* Mlth tha *«an|tor*, and mmnfii thaa ttlth t 



and 



A»8A 29.1-0A0O/8 
A*BA 30,l>t200/e 



CONTROL KErS 



ftrri«kiir)..curior tt(t 

*i| t«i^«Mkirl.. cursor right 

n 

(«rrai)k«trl>«ciiirtar ftp 



*8 .•attt 



*1 it Id ...iMtrt tin* 



MS «lfFi 
iMIi 

Mm 

OIBll 
OBBBi 
OBBBi 



*U ...Mrlti iatirt mot* 
tht cursor blink iloMly 
this oodi cnabit printing 
chr. too to chr. I7E 
( - t08...(0D I 



*Q ...upper ctft aadt 
thi curtor blink t*<Il 
thif aodt ontbli printing 
elir. fSO t« elir. Iff 



ESC ...••ctpi nodt 

tk< eurtar bllak ^aieklr 



eco«i 

mm 

OCtCl 

•C2ai 
ecsci 

mti 

•BSOi 
ODBAi 
ODSDt 
SLOW 0F42I 
0F44I 
0F47I 
OF49I 
0F4Ct 
0F4FI 
OFSli 
0FS3t 
0FS4I 
0FS7I 
OFSAl 
TITN OFSAl 
OFJBi 
OFSEl 
«F41 



- St n 
M IS 
«2 e« 
SE 40 Et 

mi 

K 41 El 
20 10 F7 
20 88 13 
if 7F 
4C Ft 00 
40 

20 «F «( 
M 
Of 
0* 
01 

IC ■ 
tM 

it 

m 42 OF 
«E 

40 37 OF 

oc 

A2 OA 
BE 40 El 
A2 to 
et 41 El 
20 ID F7 
CI 08 
10 01 
iO 

4C to 00 
20 BB 13 
4C Of OC 
07 

to 20 73 
20 it if* 



CHP IBtt 
INE BOBBi 
LDX BtO« 
STI tEI40 
tax 1*47 
STX «Et4t 
JSR tF71D 
JSR tlJBS 
ADC i»7F 
JHP (ODFi 
KT8 

|Ci *«I1F 

eSH. I 9 

etM. « t 

CTM. K 7 
CTRL I T 



II IT CTRLQ7 
IF NOTi LEFT 
TURN 

ON SMALL 
BLINKINB 

CURSOR 

SET A CHR. !< 
BLIKK OFF 
ADD 127 
PROC. A CHR. 
TO tOCOf 

TO 1^ 

M'ilSFT 
mSSHT 

m tmm 

CO BF 

INSERT LINE 



CTM. liL 7 DELETE LINE 
CTRL K t 

m coptt 

CTRL H 7' 
JHP tOFa7 
CTRL L 
LOZ llOA 
STX «Et40 
LDI itiO 
ETt «Et41 
JSR IF71D 
CKP 408 
BCC 401 
RTS 

JHP (ODiO 

JSR 4I3DS BLINK OFF 
JNP fOCOf NRCON +03 
FROM HERE YOU HAVE 7 
CHR. TO TEIT THE MESSAGE 
'USE BLANKS TO SEPARATE 
FILES HAKES' 



MR. IN. NODE 
TO SLOH BLINK 
IH. NODE 0FF7 
SLOHBLIKK OFF 
START OF TEXT 
TURN ON 
SLOH 

BLINKING 
CURSOR 
GET A CHR. 
UNDER 
C TLM 7 



Now I have been playing around 

t Sanson' fop'^ismm 
months and I think it's a great 
system because it's an open 
system that you can do edmiost 
anything with and see what you 
are doing with the monitorpro- 
gram. Now there s# mtxh^ 
software that some standardisa- 
tion would be in place. 

Since last I have bought a prin- 
ter' (Epson LX80) and made sooaa 
chcinges of the Wordprocessor to 
enable typing the printercodes 
directly on the screen Hhile 
editing the text. 

This can now be done in two ways. 
In the 'write insert mode' the 
cursor blink slowly and it is 
possible to write the chrs. $00 
to $7E minus $08 to $0D that are 
used for cursorcontrol , home, 
return and delete. This has the 
disadvantage that the ctrl.chrs. 
will not show on screen. Forfeit 
natly most printers can also use 
the high case chrs. f.ex. $8B 
instead of $1B for printerc^feif^l.. 
When Ctrl. Q is pressed the cur- 
sor blink quickly and is small 
indicating that the next chr. 
will be added with 127. In this 
way it is also possible to use 
the printer gr^U^ 




/ \ 

BREAKTeST 
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PE : |~g " — g I I J — M KEMMER 



W. V. Dongen 

In de Basicode van de NOS komt een subroutine voor om tijdens het lopende pro- 
gramma bepaalde input te verwerken, namelijk op regel 200. 

Met een variatie op de joystick interface uit DE 6502 KENNER nr. 35 heb ik bij- 
gaand progrartima gemaakt. Bij mij staat dit in Eprom op de aangegeven adressen. 
Het kan echter zonder een wijziging overal worden geplaatst. 

fils joystick gebruik ik de goedkope van Philips, die ik zonder een aanpassing op 
de VIR (Versatile Interface Adaptor) heb aangesloten. 



1 7B1 


fl9 


IF 




BESTUR 


LDOIM 


$1F 


BIT 0-1-2-3-4 VON 


17B3 


8D 


03 


18 




STO 


VODD 


POORT 0 INGONG 


17B6 


fl9 


00 






LDOIM 


$00 


GEEN BEVRIEZING 


17B8 


8D 


OB 


18 




STO 


VOCR 


VON INGONGSDflTO 


17BB 


8D 


FF 


07 




STO 


GEBOS 


GEHEUGENPLOOTS LEEG MOKEN 


17BE 


flD 


01 


18 




LDO 


VOD 


HflOL STOND JOYSTICK OP 


17C1 


Ofl 








OSLO 




BIT 0-1-2-3-4 


17C2 


00 








OSLO 




WORDT 


17C3 


Ofl 








OSLO 




BIT 3-4-5-6-7 


17C4 


29 


F8 






ANDIM 


$F8 


TEST BIT ^-4-5-6-7 


17C6 


FO 


15 






BEQ 


BESE 


GEEN OKTIE? 


17Ca 


29 


FO 






ONDIM 


$F0 


TEST BIT 4-5-6-7 


17Cfi 


FO 


12 






BEQ 


BESO 


KNOP INGEDRUKT? 


17CC 


29 


EO 






ONDIM 


$C0 


TEST BIT 5-6-7 


17CE 


FO 


14 






BEQ 


BESB 


OFWIJKING NOOR RECHTS? 


17D0 


29 


CO 






ONDIM 


$C0 


TEST BIT 6-7 


17D2 


FO 


16 






BEQ 


BESC 


OFWIJKING NOOR BENEDEN? 


17D4 


29 


80 






ONDIM 


$80 


TEST BIT 7 


17D6 


FO 


18 






BEQ 


BESD 


OFWIJKING NOOR LINKS? 


1708 


09 


55 






LDOIM 


♦55 


NEE! DON LETTER U(p) 


17Dfi 


8D 


FF 


07 




STO 


GEBOS 


IN GEHEUGENPLOOTS ZETTEN 


17DD 


60 






BESE 


RTS 






17DE 


09 


46 




BESO 


LDOIM 


$46 


KNOP INGEDRUKT! LETTER F<ire) 


17E0 


8D 


FF 


07 




STO 


GEBOS 


IN GEHEUGENPLOOTS ZETTEN 


17E3 


60 








RTS 






17E4 


09 


52 




BE5B 


LDOIM 


$52 


OFWIJKING RECHTS! LETTER R(ight) 


17E6 


8D 


FF 


07 




STO 


GEBOS 


IN GEHEUGENPLOOTS ZETTEN 


17E9 


60 








RTS 






17Efl 


09 


44 




BESC 


LDOIM 


$44 


OFWIJKING NOOR BENEDEN! LETTER D(own) 


17EC 


8D 


FF 


07 




STO 


GEBOS 


IN GEHEUGENPLOOTS ZETTEN 


17EF 


60 








RTS 






17F0 


09 


4C 




BESD 


LDOIM 


$4C 


OFWIJKING NOOR LINKS! LETTER L(eft) 


17F2 


8D 


FF 


07 




STO 


GEBOS 


IN GEHEUGENPLOOTS ZETTEN 


17F5 


60 








RTS 







Basic-comffiando 



200 Q=USR(&"17B1",0) :P0=PEEK(2047) :REM GEHEUGENPLOOTS GEBOS $07FF 

201 IN$=CHR$(P0) : RETURN 



UJOD'SJ3MO^Al30p'MMM 



Fabelachtig printen in kleur of zwartlwit 






OKIMATE 20 




OKI MICROLINE 182 



Futuristische OKI-afdrukkers erkend de OKImate 20 v.a. fl. 985.- 

besteinNederland.Nuookvoor Microline182v.a.fl.1170.- 

ledereenbetaalbaargeworden. excl. b.t.w. Bruto adviesprijs. 
Aansluitbaar op Commodore 64, BBC, 

MSX e.a. homecomputers. OKI printers, door computers voor computers. 



Vraag de dealerlijst bij de officieie importeur 



Technitron B.V. 



Zwarteweg 110, Postbus 14, 1430 AA Aalsmeer T tel. 02977-22456 - telefax 02977-40968 - telex 13301 




